4 use Test::More tests => 1;
9 $ENV{PERLDB_OPTS} = "NonStop";
13 # Write a .perldb file so we make sure we dont use the users one
14 open PERLDB, ">", "$Bin/../.perldb" or die "Cannot open $Bin/../.perldb: $!";
17 $SIG{CHLD} = 'IGNORE';
19 fail("SIGALRM timeout triggered");
24 my $output = `$^X -d t/debug.pl`;
26 like($output, qr/method new {}, sub {my \$self = shift;/,
27 "replaced line string visible in debug lines");