diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/download.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scripts/download.pl b/scripts/download.pl index 66eaca8..161ae7f 100755 --- a/scripts/download.pl +++ b/scripts/download.pl @@ -10,16 +10,15 @@ use strict; use warnings; use File::Basename; +@ARGV > 2 or die "Syntax: $0 <target dir> <filename> <md5sum> [<mirror> ...]\n"; + my $target = shift @ARGV; my $filename = shift @ARGV; my $md5sum = shift @ARGV; my $scriptdir = dirname($0); my @mirrors; - my $ok; -@ARGV > 0 or die "Syntax: $0 <target dir> <filename> <md5sum> <mirror> [<mirror> ...]\n"; - sub localmirrors { my @mlist; open LM, "$scriptdir/localmirrors" and do { |