From edbc3b1a624db3493180dcf9b143b619235e28ac Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Fri, 18 Dec 2009 02:07:19 -0800
Subject: [PATCH] Return a non-successful exit code if failed files are
 detected

---
 t/harness.pir | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/harness.pir b/t/harness.pir
index 0b4a018..5845a59 100644
--- a/t/harness.pir
+++ b/t/harness.pir
@@ -216,7 +216,8 @@ HELP
     $S1 = sprintf "%.4f", $P0
     print $S1
     say " seconds"
-    .return()
+    $I0 = failing_files != 0
+    exit $I0
 .end
 
 .sub 'qx'