summaryrefslogtreecommitdiffstats
path: root/perl
diff options
context:
space:
mode:
authorVsevolod Stakhov <vsevolod@rambler-co.ru>2009-11-09 19:58:12 +0300
committerVsevolod Stakhov <vsevolod@rambler-co.ru>2009-11-09 19:58:12 +0300
commit19857603612f664b37ac627aab2325a5497131ee (patch)
tree531b0673b7f5047804e3e382892f2ff13cf2df78 /perl
parent3bafc4ffebe62dabef34a34b965757a9a859cc62 (diff)
downloadrspamd-19857603612f664b37ac627aab2325a5497131ee.tar.gz
rspamd-19857603612f664b37ac627aab2325a5497131ee.zip
* Check whether dead flag is defined in hash to avoid warning
Diffstat (limited to 'perl')
-rw-r--r--perl/Client.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Client.pm b/perl/Client.pm
index b82756131..c0585e200 100644
--- a/perl/Client.pm
+++ b/perl/Client.pm
@@ -360,7 +360,7 @@ sub _revive_dead {
my $now = time();
foreach my $s ($self->{dead_hosts}) {
# revive after minute of downtime
- if ($s->{dead} == 1 && $now - $s->{t} > 60) {
+ if (defined($s->{dead}) && $s->{dead} == 1 && $now - $s->{t} > 60) {
$s->{dead} = 0;
push(@{$self->{alive_hosts}}, $s->{host});
}