img_tag(): Tighten up the generated SRC attribute a bit; if the image

            relative URL starts with "./", remove "./".

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 92ad45ac06109ba39130d7135821b46a9f3e7edd..9c928194e20effb7a89b201791a6e0d72bb9719c 100644 (file)
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -251,9 +251,12 @@ sub img_tag {
                        ,'border=', $nav_border, ' alt="', $alt
                        ,'" src="', $icon, '">' );
        }
-       return join('', '<img ', $iconsizes{$1}, $align
-                   ,'border=', $nav_border, ' alt="', $alt, "\"\n"
-                   ,' src="', $ICONSERVER, "/$icon", '">' );
+       my $s = join('', '<img ', $iconsizes{$1}, $align,
+                     'border=', $nav_border, ' alt="', $alt, "\"\n",
+                     ' src="', $ICONSERVER, "/$icon", '">' );
+        # if $ICONSERVER starts with "./", remove "./":
+        $s =~ s|src="(.\/)+|src="|;
+        return $s;
     }
     else {
        return $icon;