use strict;
use warnings;
-use Test::More;
+use Test::More 0.88;
BEGIN {
- if($] eq "5.011002") {
+ if("$]" eq "5.011002") {
plan skip_all => "line debugging broken on 5.11.2";
}
}
alarm 10;
my $output = `$^X -d t/debug.pl`;
-like($output, qr/method new {}, sub {my \$self = shift;/,
+like($output, qr/method new \{\}, sub \{my \$self = shift;/,
"replaced line string visible in debug lines");
done_testing;