From: Vsevolod Stakhov <vsevolod@rambler-co.ru>
Date: Mon, 9 Nov 2009 16:58:12 +0000 (+0300)
Subject: * Check whether dead flag is defined in hash to avoid warning
X-Git-Tag: 0.3.0~132
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=19857603612f664b37ac627aab2325a5497131ee;p=thirdparty%2Frspamd.git

* Check whether dead flag is defined in hash to avoid warning
---

diff --git a/perl/Client.pm b/perl/Client.pm
index b82756131e..c0585e200c 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});
     }