summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-11-02 21:30:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-11-02 21:30:49 +0000
commit9683e2f7185c5cf8b4a194d839e26425a5b9e811 (patch)
tree525feebadb07ef1014d83a886756a07baf89b17c /Master/install-tl
parent1376cc9defb4d5ca60c2c4bbd5aacd6fd4f10f67 (diff)
Win32: path cleaned up in install-tl.bat, with embedded Perl code
git-svn-id: svn://tug.org/texlive/trunk@11158 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl20
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");