traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

In package Override, use the getcwd() function from the Cwd module instead of 

the one from Override.pm (part of latex2html).

Absolutize the TEXINPUTS environment variable, since we can't count on
latex2html doing it for us (even though I sent in a patch, and it really
should).
This commit is contained in:
Fred Drake 1998-05-11 18:23:35 +00:00
parent 099b76c3bd
commit 41814bc51f
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Doc/perl/l2hinit.perl
View File

@ -6,6 +6,13 @@
# New name to avoid distributing "dot" files with the Python documentation. # New name to avoid distributing "dot" files with the Python documentation.
# #
package Override;
use Cwd qw(getcwd);
package main;
$INFO = 1; # 0 = do not make a "About this document..." section $INFO = 1; # 0 = do not make a "About this document..." section
$MAX_LINK_DEPTH = 3; $MAX_LINK_DEPTH = 3;
$ADDRESS = ''; $ADDRESS = '';
@ -24,6 +31,21 @@ $VERBOSITY = 0;
$TEXINPUTS = ''; # avoid bogus l2h setting it to ':' !!! $TEXINPUTS = ''; # avoid bogus l2h setting it to ':' !!!
sub absolutize_path{
my $path = @_[0];
my $npath = '';
foreach $dir (split $envkey, $path) {
$npath .= make_directory_absolute($dir) . $envkey;
}
$npath =~ s/$envkey$//;
$npath;
}
# This is done because latex2html doesn't do this for us, but does change the
# directory out from under us.
if (defined $ENV{'TEXINPUTS'}) {
$ENV{'TEXINPUTS'} = absolutize_path($ENV{'TEXINPUTS'});
}
# Locate a file that's been "require"d. Assumes that the file name of interest # 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 # is unique within the set of loaded files, after directory names have been
# stripped. Only the directory is returned. # stripped. Only the directory is returned.