From b3a3ed8f725c69ea24be582798b9cccede52df8a Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Fri, 24 Jul 1998 22:17:34 +0000
Subject: Update @INC so we can 'require' modules in Doc/perl/.

Call the localmoduletable handling once the document is complete & synopses
have been collected.
---
 Doc/perl/l2hinit.perl | 6 ++++--
 1 file 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();
 }
 
 
-- 
cgit v0.12