From 6884c628cdf167ea6ed1daa8c3eabba5930c261c Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 29 Oct 2008 23:08:24 +0000 Subject: install-tl/w32: more paranoid path for post-install; doesn't help though when there alreaady is a MikTeX. git-svn-id: svn://tug.org/texlive/trunk@11118 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index 3f90ebe861d..05e21982ba7 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -1042,6 +1042,16 @@ 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"); + } + debug("Prepending $plat_bindir to PATH\n"); $ENV{'PATH'}="$plat_bindir" . "$pathsep" . "$ENV{'PATH'}"; @@ -1049,6 +1059,7 @@ operations might be disturbed.\n\n"; if (win32) { debug("Prepending $perl_bindir to PATH\n"); $ENV{'PATH'}="$perl_bindir" . "$pathsep" . "$ENV{'PATH'}"; + $ENV{'PATH'} =~ s!/!\\!g; } debug("\nNew PATH is now:\n"); -- cgit v1.2.3