summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-25 11:17:07 +0000
committerNorbert Preining <preining@logic.at>2008-06-25 11:17:07 +0000
commit270598c396f8db5203e27f23922945663dd114b5 (patch)
treeb5d336442ebc638ec3d7b061265ec2be64d65454
parent6a27ab893b3290a9236fea469b0c39ec049cacd6 (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-xMaster/install-tl10
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();