From 819365f311a832c5cc57f086016069efdbee91fa Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
Date: Sun, 17 Oct 2010 21:30:40 +0100
Subject: [PATCH] Build: remove // from some html links.

---
 Documentation/lilypond-texi2html.init | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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\"
-- 
2.39.5