diff options
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-x | Master/install-tl | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/Master/install-tl b/Master/install-tl index 938a7fbdead..d32b691efdf 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -1042,15 +1042,17 @@ operations might be disturbed.\n\n"; my $perl_bindir="$TEXDIR/tlpkg/tlperl/bin"; my $perl_libdir="$TEXDIR/tlpkg/tlperl/lib"; - if (win32) { - debug("Removing other TeXs from path\n"); - my @newpt = (); - foreach my $d (split (';', $ENV{'PATH'})) { - push @newpt, $d unless TeXLive::TLWinGoo::is_a_texdir($d); - } - $ENV{'PATH'} = join($pathsep, @newpt); - debug("Path after removals(s):\n $ENV{'PATH'}\n"); - } +## This won't do any good; +## have to remove other tex directories in calling batchfile +# if (win32) { +# debug("Removing other TeXs from path\n"); +# my @newpt = (); +# foreach my $d (split (';', $ENV{'PATH'})) { +# push @newpt, $d unless TeXLive::TLWinGoo::is_a_texdir($d); +# } +# $ENV{'PATH'} = join($pathsep, @newpt); +# debug("Path after removals(s):\n $ENV{'PATH'}\n"); +# } debug("Prepending $plat_bindir to PATH\n"); |