Upgrade to Test-Harness-3.17

[p5sagit/p5-mst-13.2.git] / ext / Test-Harness / t / callbacks.t

diff --git a/ext/Test-Harness/t/callbacks.t b/ext/Test-Harness/t/callbacks.t
index 9d0cae4..18c6f0d 100644 (file)
--- a/ext/Test-Harness/t/callbacks.t
+++ b/ext/Test-Harness/t/callbacks.t
@@ -68,7 +68,8 @@ my $end  = 0;
         $plan_output = $plan->as_string;
     },
     EOF => sub {
-        $end = 1 if $all == 8;
+        my $p = shift;
+        $end = 1 if $all == 8 and $p->isa('TAP::Parser');
     },
     ELSE => sub {
         $else++;