diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 09:34:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 09:34:47 +0000 |
| commit | a32c473717aa00461cd55052bb0345aa311e1123 (patch) | |
| tree | 753fb2b2eda5a4fea5a7ca83189cabfd715d0d4b /lib/Test | |
| parent | 1199dd43248b0956628341f2a63939a8378c8016 (diff) | |
| download | perl-a32c473717aa00461cd55052bb0345aa311e1123.tar.gz | |
Another spot where a zero $test{$max} can make things go boom.
p4raw-id: //depot/perl@19879
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 7534a34663..b6a46d3bab 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"; |