From c7c9533e94e6cc0e9fbc554bcf8be84cf418b992 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 15 Jun 2005 22:31:41 +0000
Subject: [PATCH] We were failing to pring "not ok" if the text exited
 uncleanly

p4raw-id: //depot/perl@24858
---
 ext/B/t/bytecode.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index 55a4c2f..3c7d282 100644
--- a/ext/B/t/bytecode.t
+++ b/ext/B/t/bytecode.t
@@ -68,9 +68,10 @@ EOT
 	}
     }
     print <<"EOT";
+not ok $cnt
 --------- SCRIPT
 $script
---------- $?
+--------- \$\? = $?
 $got
 EOT
 } continue {
-- 
1.8.3.1