From: Fred Drake <fdrake@acm.org>
Date: Tue, 10 Mar 1998 23:02:57 +0000 (+0000)
Subject: Use the location of the initialization file to augment the style-specific
X-Git-Tag: v1.5.1~415
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=db34a1e2d8c95d64df5c8e6b6c5dd2246ee4cb09;p=thirdparty%2FPython%2Fcpython.git

Use the location of the initialization file to augment the style-specific
.perl file search path, rather than making assumptions about the current
directory.
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 4da096321b9a..96146e911d77 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -16,12 +16,30 @@ $ICONSERVER = '../icons';
 $CHILDLINE = "\n<p><hr>\n";
 $VERBOSITY = 0;
 
-# a little painful, but lets us clean up the top level directory just a little
-$mywd = `pwd`;
-chop $mywd;
-$LATEX2HTMLSTYLES = "$mywd${dd}perl$envkey$LATEX2HTMLSTYLES";
+# Locate a file that's been "require"d.  Assumes that the file name of interest
+# is unique within the set of loaded files, after directory names have been
+# stripped.  Only the directory is returned.
+#
+sub find_my_file{
+    local($myfile,$key,$tmp,$mydir) = (@_[0], '', '', '');
+    foreach $key (keys %INC) {
+	$tmp = "$key";
+	$tmp =~ s|^.*/||o;
+	if ($tmp eq $myfile) {
+	    #print "\nfound $tmp: $key --> ", $INC{$key}, "\n";
+	    $mydir = $INC{$key};
+	}
+    }
+    $mydir =~ s|/[^/]*$||;
+    $mydir;
+}
 
-#print "\n\$LATEX2HTMLSTYLES = $LATEX2HTMLSTYLES\n\n";
+# A little painful, but lets us clean up the top level directory a little,
+# and not be tied to the current directory (as far as I can tell).
+#
+$mydir = &find_my_file("l2hinit.perl");
+#print "\nmy dir = $mydir\n";
+$LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES";
 
 
 sub top_navigation_panel {