fix parameter parsing when pagespec is ommited, and year is present
parent
50d08bc2ae
commit
579ee70e95
|
@ -15,7 +15,10 @@ GetOptions(
|
|||
"force" => \$force,
|
||||
) || usage();
|
||||
my $setup=shift || usage();
|
||||
my $pagespec=shift;
|
||||
my $pagespec;
|
||||
if (@ARGV && $ARGV[0] !~ /^\d+$/) {
|
||||
$pagespec=shift;
|
||||
}
|
||||
my $startyear=shift || 1900+(localtime(time))[5];
|
||||
my $endyear=shift || $startyear;
|
||||
|
||||
|
|
Loading…
Reference in New Issue