Return a non-successful exit code if failed files are detected

leto · Dec 18, 2009 · edbc3b1 · edbc3b1
1 parent a962d1e
commit edbc3b1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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'