X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=e5fa41a8f3bce122e574f0728660d31899875fe9;hb=2c4fd7e2ec5736105e9a532982b2fb8a47c374eb;hp=146392f44f970a83eb269167c1590a29b71cb414;hpb=3eb722692c2c1e9de84752391d5b6330e062c7e6;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 146392f4..e5fa41a8 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -130,7 +130,7 @@ sub process
 		for (keys %busy) {
 			my $node = $_;
 			my $ref = $busy{$_};
-			if ($main::systime > $ref->{lastt} + $timeout) {
+			if (exists $ref->{lastt} && $main::systime > $ref->{lastt} + $timeout) {
 				$ref->stop_msg($node);
 
 				# delay any outgoing messages that fail