X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01_basic.t;h=c16cab305bd0cc87d142d4ea5671571151b41c32;hb=6d3e0a6f;hp=5a6bdcf5eca4be2e5eb20f7a1a4e9acbdb7b62c6;hpb=9aaf36461a79c118c35f3bf546933fefbd9bfd35;p=p5sagit%2FDevel-GlobalDestruction.git

diff --git a/t/01_basic.t b/t/01_basic.t
index 5a6bdcf..c16cab3 100644
--- a/t/01_basic.t
+++ b/t/01_basic.t
@@ -21,8 +21,10 @@ BEGIN {
 
 print "1..4\n";
 
+my $had_error = 0;
+END { $? = $had_error };
 sub ok ($$) {
-    print "not " if !$_[0];
+    $had_error++, print "not " if !$_[0];
     print "ok";
     print " - $_[1]" if defined $_[1];
     print "\n";