diff options
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-x | Master/install-tl.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index b5737ec9900..aa8a6051915 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -13,11 +13,22 @@ BEGIN { $^W = 1; my $me=$0; $me=~s!\\!/!g if $^O=~/^MSWin(32|64)$/i; + if ($me=~m!/!) { ($::installerdir=$me)=~s!(.*)/.*$!$1!; } else { $::installerdir='.'; } +# The installer uses a minimal subset of Perl for Windows. In order +# to avoid conflicts with other versions of Perl already installed on +# the system, we simply ignore them. The installer has to execute +# $::installerdir/tlpkg/bin/perl.exe and should not rely on any other +# Perl executable. + + if ($^O=~/^MSWin(32|64)$/i) { + $ENV{'PERL5LIB'}=undef; + @INC="$::installerdir/tlpkg/lib/Perl5_lib-TL_inst"; + } unshift (@INC, "$::installerdir/tlpkg"); } |