diff options
author | Norbert Preining <preining@logic.at> | 2008-06-25 11:17:07 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-25 11:17:07 +0000 |
commit | 270598c396f8db5203e27f23922945663dd114b5 (patch) | |
tree | b5d336442ebc638ec3d7b061265ec2be64d65454 | |
parent | 6a27ab893b3290a9236fea469b0c39ec049cacd6 (diff) |
make install-tl working on relative pathes, too
git-svn-id: svn://tug.org/texlive/trunk@9037 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/install-tl | 10 |
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(); |