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 (file)
--- 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";