my $count;
my $hint = "";
- $search = '1' unless $pattern || $who;
if ($pattern) {
- $search = "\$ref->[1] =~ m{$pattern}i";
+ $search = "\$ref->[1] =~ m{^$pattern}i";
$hint = "m{$pattern}i";
}
-
if ($who) {
if ($search) {
$search .= ' && ';
$hint .= 'm{$who}i';
}
$hint = "next unless $hint" if $hint;
+ $search = "1" unless $search;
$eval = qq(
\@in = ();