Update @INC so we can 'require' modules in Doc/perl/.

Call the localmoduletable handling once the document is complete & synopses
have been collected.
This commit is contained in:
Fred Drake 1998-07-24 22:17:34 +00:00
parent a0f4c94af6
commit b3a3ed8f72

View file

@ -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();
}