8 plan skip_all => "line debugging broken on 5.11.2";
15 $ENV{PERLDB_OPTS} = "NonStop";
19 # Write a .perldb file so we make sure we dont use the users one
20 open PERLDB, ">", "$Bin/../.perldb" or die "Cannot open $Bin/../.perldb: $!";
23 $SIG{CHLD} = 'IGNORE';
25 fail("SIGALRM timeout triggered");
30 my $output = `$^X -d t/debug.pl`;
32 like($output, qr/method new {}, sub {my \$self = shift;/,
33 "replaced line string visible in debug lines");