-#!/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";
- }
+ # shut up the debugger
+ $ENV{PERLDB_OPTS} = 'NonStop';
- push @DB::typeahead, "q";
+ # work aroud the regex + P::S::XS buggery on
+ # < 5.8.6
+ require Package::Stash;
+}
+
+BEGIN {
+
+#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;
}
{