Doc build: fix lc_last.

I have NO CLUE how I managed to ignore the fact that I was
checking a non-existant variable.. nor how I managed to "check"
that my "fix" "worked" with completely broken code.

I also have NO CLUE why perl didn't barf when I started checking
the state of a non-existant variable, but I'm sadly not surprised
about it's permissiveness.

diff --git a/Documentation/lilypond-texi2html.init b/Documentation/lilypond-texi2html.init
index 376e201a8cd494564589aaa6977762017dd42ca3..92c48b970c9e94b11e40e3b737a748046af1ef02 100644 (file)
--- a/Documentation/lilypond-texi2html.init
+++ b/Documentation/lilypond-texi2html.init
@@ -636,8 +636,8 @@ sub lc_last($)
   my $href = shift;
   my @hrefsplit = split('/', $href);
   # change the last portion (the filename), if it exists
-  if ($#array > 0) {
-    @hrefsplit[$#array] = lc( @hrefsplit[$#array] );
+  if ($#hrefsplit > 0) {
+    @hrefsplit[$#hrefsplit] = lc( @hrefsplit[$#hrefsplit] );
     $href = join("/", @hrefsplit);
   }
   return $href;