diff options
| author | fukachan <fukachan> | 2002-12-12 04:57:53 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-12 04:57:53 +0000 |
| commit | 01b51abe51ad9483907a22be0651da2e810cf622 (patch) | |
| tree | 24dcd4acb932bfb7257f98e527ef5cdd3788aed9 /fml/lib/FML/Error/Analyze.pm | |
| parent | 6bd457d21032d883edbdbe34f5db1f1d3232fc8f (diff) | |
| download | fml8-01b51abe51ad9483907a22be0651da2e810cf622.tar.gz fml8-01b51abe51ad9483907a22be0651da2e810cf622.tar.bz2 fml8-01b51abe51ad9483907a22be0651da2e810cf622.zip | |
defined()
Diffstat (limited to 'fml/lib/FML/Error/Analyze.pm')
| -rw-r--r-- | fml/lib/FML/Error/Analyze.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/FML/Error/Analyze.pm b/fml/lib/FML/Error/Analyze.pm index 122c1fc8..25cc348a 100644 --- a/fml/lib/FML/Error/Analyze.pm +++ b/fml/lib/FML/Error/Analyze.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Analyze.pm,v 1.7 2002/09/22 15:01:21 fukachan Exp $ +# $FML: Analyze.pm,v 1.8 2002/10/20 13:33:31 fukachan Exp $ # package FML::Error::Analyze; @@ -152,7 +152,9 @@ sub error_continuity while (($addr, $ra) = each %$summary) { $sum = 0; for my $v (@$ra) { - $sum += 1 if $v >= 2; + if (defined $v) { + $sum += 1 if $v >= 2; + } } Log("summary: $addr sum=$sum (@$ra)"); |