summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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);