Search strings are escaped so can't be regexes (but that could change)
next if $to;
}
next if $who;
next if $to;
}
next if $who;
+ if ($f !~ /^\d+/) {
+ ($who) = $f;
+ }
+ if ($f !~ /^\d+/) {
+ ($who) = $f;
+ }
#($who) = $f =~ /^(\w+)/o;
}
#($who) = $f =~ /^(\w+)/o;
}
next if $to;
}
next if $who;
next if $to;
}
next if $who;
+ if ($f !~ /^\d+/) {
+ ($who) = $f;
+ }
# ($who) = $f =~ /^(\w+)/o;
}
# ($who) = $f =~ /^(\w+)/o;
}
($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
next if $to;
}
($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
next if $to;
}
+ unless ($f =~ /^\d+/) {
$who = $f;
next if $who;
}
$who = $f;
next if $who;
}
next if $to;
}
next if $who;
next if $to;
}
next if $who;
- #($who) = $f =~ /^(\w+)/o;
+ if ($f !~ /^\d+/) {
+ ($who) = $f;
+ }
next if $to;
}
next if $who;
next if $to;
}
next if $who;
+ if ($f !~ /^\d+/) {
+ ($who) = $f;
+ }
# ($who) = $f =~ /^(\w+)/o;
}
# ($who) = $f =~ /^(\w+)/o;
}