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
21 open PERLDB, ">", "$Bin/../.perldb" or die "Cannot open $Bin/../.perldb: $!";
24 $SIG{CHLD} = 'IGNORE';
26 fail("SIGALRM timeout triggered");
31 my $output = `$^X -d t/debug.pl`;
33 like($output, qr/method new {}, sub {my \$self = shift;/,
34 "replaced line string visible in debug lines");