I haven't touched most these scripts in ages, but we might as well
purge \d usage from here, as well.
my $out = $git->qx('config', "--file=$f", key($ibx));
$out ||= 0;
chomp $out;
my $out = $git->qx('config', "--file=$f", key($ibx));
$out ||= 0;
chomp $out;
- $out =~ /\A\d+\z/ and return $out;
+ $out =~ /\A[0-9]+\z/ and return $out;
die "Invalid group\n" if !(defined $num && defined $first && defined $last);
my $arg_first = shift;
if (defined $arg_first) {
die "Invalid group\n" if !(defined $num && defined $first && defined $last);
my $arg_first = shift;
if (defined $arg_first) {
- $arg_first =~ /\A\d+\z/ or die $usage;
+ $arg_first =~ /\A[0-9]+\z/ or die $usage;
$first = $arg_first;
} elsif ($mm) {
my $last_article = $mm->meta_accessor('last_article');
$first = $arg_first;
} elsif ($mm) {
my $last_article = $mm->meta_accessor('last_article');