summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dev
diff options
context:
space:
mode:
authorPiotr Strzelczyk <piotr@eps.gda.pl>2010-03-26 23:28:27 +0000
committerPiotr Strzelczyk <piotr@eps.gda.pl>2010-03-26 23:28:27 +0000
commited88130f7ff12927d21365d375a4aefee1bbfa95 (patch)
tree604eb3dc3e8cdd46f3bb32486a0d83dc32be0ff3 /Master/tlpkg/dev
parent651786200b05e6269296c4296669f7faebf8ddaf (diff)
tweak code for installer root
git-svn-id: svn://tug.org/texlive/trunk@17568 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/dev')
-rw-r--r--Master/tlpkg/dev/download-package-repository4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/dev/download-package-repository b/Master/tlpkg/dev/download-package-repository
index 97c78ac655c..2e10603e51f 100644
--- a/Master/tlpkg/dev/download-package-repository
+++ b/Master/tlpkg/dev/download-package-repository
@@ -14,7 +14,7 @@ BEGIN {
$^W = 1;
$Master = __FILE__;
$Master =~ s;\\;/;g if ($^O =~ /^MSWin/i);
- $Master =~ s;/[^/]*$;/../..; unless ($Master =~ s;(/[^/]*){3,3}$;;i);
+ $Master =~ s;[^/]*$;../..; unless ($Master =~ s;(/[^/]*){3,3}$;;);
unshift (@INC, "$Master/tlpkg");
$::installerdir = $Master;
$::localrepo = $Master;
@@ -44,7 +44,7 @@ GetOptions(
"location|url|repository|repo=s" => \$opt_location,
# "destination=s" => \$opt_destination,
"persistent-downloads!" => \$opt_persistent_downloads,
- "?|h|help" => \$opt_help) or pod2usage(1);
+ "h|help|?" => \$opt_help) or pod2usage(1);
if ($opt_help) {
my @noperldoc = ("-noperldoc", "1") if ($^O =~ /^MSWin/i);
pod2usage(-exitstatus => 0, -verbose => 2, @noperldoc);