summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2000-09-14 22:20:41 (GMT)
committerFred Drake <fdrake@acm.org>2000-09-14 22:20:41 (GMT)
commitaaa238585f53c039ebb2ef4a442841e217db877e (patch)
tree0e5983e4b9a6baa30090ffb25b2f8ab14659861d /Doc/perl
parent4dfad5723523501a86c76915955ca9ba05a534c5 (diff)
downloadcpython-aaa238585f53c039ebb2ef4a442841e217db877e.zip
cpython-aaa238585f53c039ebb2ef4a442841e217db877e.tar.gz
cpython-aaa238585f53c039ebb2ef4a442841e217db877e.tar.bz2
When there is a Module Index, make sure the icon actually links to it.
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/l2hinit.perl4
1 files changed, 3 insertions, 1 deletions
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;