13 if (!-c "/dev/null") {
14 print "1..0 # Skip: no /dev/null\n";
22 open RC, ">", ".perldb" or die $!;
25 # overly permissive perms gives "Must not source insecure rcfile"
26 # and hangs at the DB(1> prompt
27 chmod 0644, ".perldb";
32 &parse_options("NonStop=0 TTY=/dev/null LineInfo=db.out");
38 "DB::print_lineinfo(\@{'main::_<perl5db/eval-line-bug'})",
46 runperl(switches => [ '-d' ], progfile => '../lib/perl5db/eval-line-bug');
51 open I, "<", 'db.out' or die $!;
56 like($contents, qr/factorial/,
57 'The ${main::_<filename} variable in the debugger was not destroyed'
63 unlink '.perldb', 'db.out';