Mirror
/
cpython
mirror of https://github.com/python/cpython
4
1
Fork 0
Code Issues Releases Wiki Activity

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.
This commit is contained in:
Fred Drake 1998-03-11 12:08:21 +00:00
parent bc8ad5bdeb
commit c9f2c14d49
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Doc/perl/l2hinit.perl
View File

@ -34,11 +34,16 @@ sub find_my_file{
$mydir; $mydir;
} }
# A little painful, but lets us clean up the top level directory a little, # 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). # and not be tied to the current directory (as far as I can tell).
# #
$mydir = &find_my_file("l2hinit.perl"); use Cwd;
#print "\nmy dir = $mydir\n"; use File::Basename;
($myname, $mydir, $myext) = fileparse(__FILE__, '\..*');
chop $mydir; # remove trailing '/'
$mydir = getcwd() . "$dd$mydir"
unless $mydir =~ s|^/|/|;
$LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES"; $LATEX2HTMLSTYLES = "$mydir$envkey$LATEX2HTMLSTYLES";