Commit b3a3ed8f authored by Fred Drake's avatar Fred Drake

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

Call the localmoduletable handling once the document is complete & synopses
have been collected.
parent a0f4c94a
......@@ -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();
}
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment