From c9f2c14d49d88ecc868a30e23ae043e03789bff3 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 11 Mar 1998 12:08:21 +0000
Subject: Somewhat more direct way of locating the file, using __FILE__.

Leave find_my_file() around for now, even though we're not using it at the
moment.
---
 Doc/perl/l2hinit.perl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 96146e9..75c39a8 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -34,11 +34,16 @@ sub find_my_file{
     $mydir;
 }
 
+
 # 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";
+use Cwd;
+use File::Basename;
+($myname, $mydir, $myext) = fileparse(__FILE__, '\..*');
+chop $mydir;			# remove trailing '/'
+$mydir = getcwd() . "$dd$mydir"
+  unless $mydir =~ s|^/|/|;
 $LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES";
 
 
-- 
cgit v0.12