diff options
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-x | Master/install-tl | 32 |
1 files changed, 11 insertions, 21 deletions
diff --git a/Master/install-tl b/Master/install-tl index 8831c97e401..5c4161e2e76 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -26,34 +26,26 @@ $::installerrevision = $1; # taken from 00texlive.config: release, $tlpdb->config_release; our $texlive_release; -my $localpath; BEGIN { $^W = 1; - my $me=$0; - $me=~s!\\!/!g if $^O=~/^MSWin(32|64)$/i; - if ($me=~m!/!) { - ($localpath=$me)=~s!(.*)/.*$!$1!; - # we have to chdir to the Master ... - chdir($localpath); + my $Master; + my $me = $0; + $me =~ s!\\!/!g if $^O =~ /^MSWin(32|64)$/i; + if ($me =~ m!/!) { + ($Master = $me) =~ s!(.*)/[^/]*$!$1!; } else { - $localpath = '.'; - } - $::installerdir='.'; - # Windows: The installer uses a minimal subset of Perl. 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. The batchfile wrapper takes care of this. - #if ($^O=~/^MSWin(32|64)$/i) { - # @INC="$::installerdir/tlpkg/installer/perllib"; - #} + $Master = "."; + } + $::installerdir = $Master; # All platforms: add the installer modules unshift (@INC, "$::installerdir/tlpkg"); } +use Cwd 'abs_path'; use Getopt::Long qw(:config no_autoabbrev); +use Pod::Usage; use TeXLive::TLUtils qw(platform platform_desc which getenv win32 unix info log debug tlwarn ddebug @@ -65,8 +57,6 @@ use TeXLive::TLPOBJ; use TeXLive::TLPDB; use TeXLive::TLConfig; use TeXLive::TLPostActions; -use Pod::Usage; -use Cwd 'abs_path'; if (win32) { require TeXLive::TLWinGoo; @@ -173,7 +163,7 @@ $::alternative_selector = 0; # continue with the installation # note, we are in the installer directory. if (-r "installation.profile") { - print "ABORTED INSTALLATION FOUND: $localpath/installation.profile\n"; + print "ABORTED INSTALLATION FOUND: installation.profile\n"; print "Do you want to continue with the exact same settings as before (y/N): "; my $answer = <STDIN>; if ($answer =~ m/^y(es)?$/i) { |