From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 29 Jun 2003 09:34:47 +0000 (+0000)
Subject: Another spot where a zero $test{$max} can make things go boom.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a32c473717aa00461cd55052bb0345aa311e1123;p=p5sagit%2Fp5-mst-13.2.git

Another spot where a zero $test{$max} can make things go boom.

p4raw-id: //depot/perl@19879
---

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 7534a34..b6a46d3 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -523,7 +523,7 @@ sub _run_all_tests {
                 $failedtests{$tfile}{name} = $tfile;
             }
             elsif($results{seen}) {
-                if (@{$test{failed}}) {
+                if (@{$test{failed}} and $test{$max}) {
                     my ($txt, $canon) = canonfailed($test{max},$test{skipped},
                                                     @{$test{failed}});
                     print "$test{ml}$txt";