Allow the debugger test to be skipped early

Loading the debugger often goes wrong, so it's important we skip the
test before it gets loaded.

diff --git a/xt/author/07-debugger.t b/xt/author/07-debugger.t
index 40c0466..7335992 100644 (file)
--- a/xt/author/07-debugger.t
+++ b/xt/author/07-debugger.t
@@ -1,19 +1,14 @@
-#!/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";
-    }
+    plan skip_all => 'Only applicable on perl >= 5.8.9'
+        if $] <= 5.008008;
+
+#line 1
+#!/usr/bin/perl -d
+#line 10
 
-    push @DB::typeahead, "q";
+    push @DB::typeahead, "c", "q";
 
     # try to shut it up at least a little bit
     open my $out, ">", \my $out_buf;