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

freddrake · freddrake · commit b3a3ed8f725c · 1998-07-24T22:17:34.000Z
Call the localmoduletable handling once the document is complete &amp; synopses
have been collected.
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
@@ -41,6 +41,7 @@ package main;
 $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();
 }
 
 
