From aaa238585f53c039ebb2ef4a442841e217db877e Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 14 Sep 2000 22:20:41 +0000
Subject: When there is a Module Index, make sure the icon actually links to
 it.

---
 Doc/perl/l2hinit.perl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 147be51..d78efc8 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -437,7 +437,9 @@ sub add_bbl_and_idx_dummy_commands {
           . "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
         s/$rx/\\textohtmlmoduleindex \1 \\textohtmlindex \2/o;
         # Add a button to the navigation areas:
-        $CUSTOM_BUTTONS .= $my_icons{'modules'};
+        $CUSTOM_BUTTONS .= ('<a href="modindex.html" title="Module Index">'
+                            . $my_icons{'modules'}
+                            . '</a>');
     }
     else {
         $CUSTOM_BUTTONS .= $BLANK_ICON;
-- 
cgit v0.12