summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-10-29 23:08:24 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-10-29 23:08:24 +0000
commit6884c628cdf167ea6ed1daa8c3eabba5930c261c (patch)
tree8de96075005f6fc8c949d0c172cf0b3fb063050b /Master/install-tl
parent53b5a75f168eb0b9dd6bce26d95a191700aff536 (diff)
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
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl11
1 files changed, 11 insertions, 0 deletions
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");