make install-tl working on relative pathes, too

git-svn-id: svn://tug.org/texlive/trunk@9037 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 5 insertions, 5 deletions

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();