13 if (!-c "/dev/null") {
14 print "1..0 # Skip: no /dev/null\n";
22 open RC, ">", ".perldb" or die $!;
29 &parse_options("NonStop=0 TTY=/dev/null LineInfo=db.out");
35 "DB::print_lineinfo(\@{'main::_<perl5db/eval-line-bug'})",
43 runperl(switches => [ '-d' ], progfile => '../lib/perl5db/eval-line-bug');
48 open I, "<", 'db.out' or die $!;
53 like($contents, qr/factorial/,
54 'The ${main::_<filename} variable in the debugger was not destroyed'
60 unlink '.perldb', 'db.out';