sub expect {
my ($pkg) = @_;
- return qr/^warn:Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"$pkg"/;
+ return qr/^warn:Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"$pkg"\s+at\s+\(eval\s+\d+\)\s+line\s+\d+/;
}
{
no indirect;
eval 'my $x = new Bar';
}
- if ($] < 5.010) {
+ if ($] < 5.009005) {
is($w, '', "eval 'no indirect; my \$x = new Bar'");
} else {
like($w, expect('Bar'), "no indirect; eval 'my \$x = new Bar'");