perl 5.003_04: lib/Test/Harness.pm

Add a return value to runtests - non-zero if all tests ran ok,
zero otherwise.

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 387c40c..7a16424 100644 (file)
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -168,6 +168,8 @@ sub runtests {
        }
     }
     printf("Files=%d,  Tests=%d, %s\n", $files, $totmax, timestr($t_total, 'nop'));
+
+    return ($bad == 0 && $totmax) ;
 }
 
 sub corestatus {