diff options
Diffstat (limited to 'Echolot/Stats.pm')
| -rw-r--r-- | Echolot/Stats.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 5a100ea..4575562 100644 --- a/Echolot/Stats.pm +++ b/Echolot/Stats.pm @@ -1,7 +1,7 @@ package Echolot::Stats; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Stats.pm,v 1.47 2003/02/16 14:42:41 weasel Exp $ +# $Id: Stats.pm,v 1.48 2003/02/17 07:22:49 weasel Exp $ # =pod @@ -529,11 +529,11 @@ sub find_broken_chains($$$) { my $theoretical_rel = $remailers{$addr1}->{'stats'}->{'avr_reliability'} * $remailers{$addr2}->{'stats'}->{'avr_reliability'}; my $out = $stats->{$addr1}->{$addr2}->{'out'}; - ($out < Echolot::Config::get()->{'chainping_minsample'}) and - push (@intensive_care, { addr1 => $addr1, addr2 => $addr2, reason => "only $out samples" }), - next; my $done = $stats->{$addr1}->{$addr2}->{'done'}; $done = 0 unless defined $done; + ($out < Echolot::Config::get()->{'chainping_minsample'} && $done == 0) and + push (@intensive_care, { addr1 => $addr1, addr2 => $addr2, reason => "only $out samples, none returned so far" }), + next; ($out > 0) or Echolot::Log::debug("Should not devide through zero ($done/$out) for $addr1, $addr2."), next; |