X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=e5fa41a8f3bce122e574f0728660d31899875fe9;hb=c1eb1d4013a7d748c0fc22f778ddb719dc151a1b;hp=146392f44f970a83eb269167c1590a29b71cb414;hpb=6e80184b4c2c222a7ab1f7ededb9e9af2be9c236;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