We were failing to pring "not ok" if the text exited uncleanly

p4raw-id: //depot/perl@24858

diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index 55a4c2f..3c7d282 100644 (file)
--- 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 {