diff options
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/dev/download-package-repository | 4 |
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); |