13 if (!-c "/dev/null") {
14 print "1..0 # Skip: no /dev/null\n";
17 my $dev_tty = '/dev/tty';
18 $dev_tty = 'TT:' if ($^O eq 'VMS');
20 print "1..0 # Skip: no $dev_tty\n";
28 open RC, ">", ".perldb" or die $!;
31 # overly permissive perms gives "Must not source insecure rcfile"
32 # and hangs at the DB(1> prompt
33 chmod 0644, ".perldb";
36 my $target = '../lib/perl5db/t/eval-line-bug';
40 &parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
52 "p \\\@{'main::_<$target'}",
59 local $ENV{PERLDB_OPTS} = "ReadLine=0";
60 runperl(switches => [ '-d' ], progfile => $target);
66 open I, "<", 'db.out' or die $!;
71 like($contents, qr/sub factorial/,
72 'The ${main::_<filename} variable in the debugger was not destroyed'
78 unlink qw(.perldb db.out);