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

diff --git a/perl/Client.pm b/perl/Client.pm
index b82756131e0f2136cd08dec292ed9851218876da..c0585e200c1ad1475e98526c7cc24defd51ff6b4 100644 (file)
--- 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});
     }