Build: remove // from some html links.

diff --git a/Documentation/lilypond-texi2html.init b/Documentation/lilypond-texi2html.init
index e2d8638f2706cf7ee371fac97cf3295916ec02e7..8f46fd5ee21d3517cdcb29cad0e52fa66cb271eb 100644 (file)
--- a/Documentation/lilypond-texi2html.init
+++ b/Documentation/lilypond-texi2html.init
@@ -1374,7 +1374,11 @@ sub lilypond_print_toc_div ($$)
       $lang = "";
     }
     my $reldir = $ENV{DEPTH};
-    my $uplink = $reldir."/Documentation/web/manuals.${lang}html";
+    # add a / at the end if there isn't one.  I cannot believe perl syntax!
+    if (!($reldir =~ m/\/$/ )) {
+        $reldir .= '/'
+    }
+    my $uplink = $reldir."Documentation/web/manuals.${lang}html";
 
     if (not $web_manual) {
       print $fh "<p class=\"toc_uplink\"><a href=\"$uplink\"