From db34a1e2d8c95d64df5c8e6b6c5dd2246ee4cb09 Mon Sep 17 00:00:00 2001 From: Fred Drake Date: Tue, 10 Mar 1998 23:02:57 +0000 Subject: Use the location of the initialization file to augment the style-specific .perl file search path, rather than making assumptions about the current directory. --- Doc/perl/l2hinit.perl | 28 +++++++++++++++++++++++----- 1 file changed, 23 insertions(+), 5 deletions(-) diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 4da0963..96146e9 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -16,12 +16,30 @@ $ICONSERVER = '../icons'; $CHILDLINE = "\n

\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 { -- cgit v0.12