diff options
| author | Fred Drake <fdrake@acm.org> | 1998-07-24 22:17:34 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-07-24 22:17:34 (GMT) |
| commit | b3a3ed8f725c69ea24be582798b9cccede52df8a (patch) | |
| tree | 34b0e5b77059d0e437440e4b987146cc25ab6fb1 /Doc/perl/l2hinit.perl | |
| parent | a0f4c94af6aa7d01910ae143bb51a5b0ea35681e (diff) | |
| download | cpython-b3a3ed8f725c69ea24be582798b9cccede52df8a.zip cpython-b3a3ed8f725c69ea24be582798b9cccede52df8a.tar.gz cpython-b3a3ed8f725c69ea24be582798b9cccede52df8a.tar.bz2 | |
Update @INC so we can 'require' modules in Doc/perl/.
Call the localmoduletable handling once the document is complete & synopses
have been collected.
Diffstat (limited to 'Doc/perl/l2hinit.perl')
| -rw-r--r-- | Doc/perl/l2hinit.perl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index c022c19..76b65ce 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -41,6 +41,7 @@ chop $mydir; # remove trailing '/' $mydir = getcwd() . "$dd$mydir" unless $mydir =~ s|^/|/|; $LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES"; +push (@INC, $mydir); ($myrootname, $myrootdir, $myext) = fileparse($mydir, '\..*'); chop $myrootdir; @@ -218,8 +219,9 @@ sub add_module_idx{ # replace both indexes as needed: sub add_idx_hook{ - &add_idx if (/$idx_mark/); - &add_module_idx if (/$idx_module_mark/); + add_idx() if (/$idx_mark/); + add_module_idx() if (/$idx_module_mark/); + process_all_localmoduletables(); } |