From 270598c396f8db5203e27f23922945663dd114b5 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 25 Jun 2008 11:17:07 +0000 Subject: make install-tl working on relative pathes, too git-svn-id: svn://tug.org/texlive/trunk@9037 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index 764fa50e148..520f682cc8d 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -17,16 +17,16 @@ $::installerrevision = $1; # is now 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!/!) { - ($::installerdir=$me)=~s!(.*)/.*$!$1!; + ($localpath=$me)=~s!(.*)/.*$!$1!; # we have to chdir to the Master ... - chdir($::installerdir); - } else { + chdir($localpath); $::installerdir='.'; } # The installer uses a minimal subset of Perl for Windows. In order @@ -304,7 +304,7 @@ if (media() eq "DVD") { info("Distribution: ", media(), "\n"); } info("Directory for Temporary Files: '", $system_tmpdir, "\'\n"); -info("Installer Directory: '$::installerdir'\n"); +info("Installer Directory: '$localpath'\n"); initialize_installer(); -- cgit v1.2.3