next if $from && $to > $from;
}
unless ($to) {
- ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
+ ($to) = $f =~ /^(\d+)$/ if !$to; # is it a to count?
next if $to;
}
- unless ($f =~ /^\d+/) {
+ unless ($f =~ /^\d+$/) {
$who = $f;
next if $who;
}