Change 19879 by [EMAIL PROTECTED] on 2003/06/29 09:34:47
Another spot where a zero $test{$max} can make things go boom.
Affected files ...
... //depot/perl/lib/Test/Harness.pm#72 edit
Differences ...
==== //depot/perl/lib/Test/Harness.pm#72 (text) ====
Index: perl/lib/Test/Harness.pm
--- perl/lib/Test/Harness.pm#71~19766~ Fri Jun 13 10:02:57 2003
+++ perl/lib/Test/Harness.pm Sun Jun 29 02:34:47 2003
@@ -523,7 +523,7 @@
$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";
End of Patch.
