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

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");