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

Call the localmoduletable handling once the document is complete & synopses
have been collected.

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index c022c19aec754c193a47ebd3247892550c9b5074..76b65ce17ec67c1258c1222a2504341b8cd0e20a 100644 (file)
--- 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();
 }