-#!/usr/bin/perl -d
-
use Test::More;
BEGIN {
- # apparently we can't just skip_all with -d, because the debugger breaks at
- # Test::Testers END block
- if ($] <= 5.008008) {
- pass;
- done_testing;
- }
- else {
- push @DB::typeahead, "c";
- }
+ $ENV{PERLDB_OPTS} = 'NonStop';
+}
+
+BEGIN {
- push @DB::typeahead, "q";
+#line 1
+#!/usr/bin/perl -d
+#line 10
- # try to shut it up at least a little bit
- open my $out, ">", \my $out_buf;
- $DB::OUT = $out;
- open my $in, "<", \my $in_buf;
- $DB::IN = $in;
}
{