This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
We were failing to pring "not ok" if the text exited uncleanly
[perl5.git] / ext / B / t / bytecode.t
index 55a4c2f..3c7d282 100644 (file)
@@ -68,9 +68,10 @@ EOT
        }
     }
     print <<"EOT";
+not ok $cnt
 --------- SCRIPT
 $script
---------- $?
+--------- \$\? = $?
 $got
 EOT
 } continue {