diff options
author | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-11-09 19:58:12 +0300 |
---|---|---|
committer | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-11-09 19:58:12 +0300 |
commit | 19857603612f664b37ac627aab2325a5497131ee (patch) | |
tree | 531b0673b7f5047804e3e382892f2ff13cf2df78 /perl | |
parent | 3bafc4ffebe62dabef34a34b965757a9a859cc62 (diff) | |
download | rspamd-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.pm | 2 |
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}); } |