When there is a Module Index, make sure the icon actually links to it.

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 147be516f71ddc1b757f39331878f9d5e2140d6e..d78efc86b6862ea8f3c60f494bde616e4dbe1a79 100644 (file)
--- 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;