From: Graham Percival <graham@percival-music.ca>
Date: Sun, 17 Oct 2010 20:30:40 +0000 (+0100)
Subject: Build: remove // from some html links.
X-Git-Tag: release/2.13.36-1~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=819365f311a832c5cc57f086016069efdbee91fa;p=lilypond.git

Build: remove // from some html links.
---

diff --git a/Documentation/lilypond-texi2html.init b/Documentation/lilypond-texi2html.init
index e2d8638f27..8f46fd5ee2 100644
--- 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\"