diff options
| author | Piotr Strzelczyk <piotr@eps.gda.pl> | 2010-03-26 23:28:27 +0000 |
|---|---|---|
| committer | Piotr Strzelczyk <piotr@eps.gda.pl> | 2010-03-26 23:28:27 +0000 |
| commit | ed88130f7ff12927d21365d375a4aefee1bbfa95 (patch) | |
| tree | 604eb3dc3e8cdd46f3bb32486a0d83dc32be0ff3 /Master | |
| parent | 651786200b05e6269296c4296669f7faebf8ddaf (diff) | |
tweak code for installer root
git-svn-id: svn://tug.org/texlive/trunk@17568 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -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); |