Lines Matching refs:result
120 my $result = shift @death;
132 $result =~ s/{\#}/$marker1/;
133 $result =~ s/{\#}/$marker2/;
134 $result .= " at ";
135 if ($@ !~ /^\Q$result/) {
136 print "# For $regex, expected:\n# $result\n# Got:\n# $@\n#\nnot ";
149 my $result = shift @warning;
166 $result =~ s/{\#}/$marker1/;
167 $result =~ s/{\#}/$marker2/;
168 $result .= " at ";
169 if ($warning !~ /^\Q$result/)
173 # $result