X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=60351bd40885e8fe1e7005ceec375342bb5a80cc;hb=8abbe6231dec8dc08513be0ef4d2d59ac918986f;hp=0bd27bbfa430d3d8f74ae472ff67fc4a16a98cea;hpb=89ce129e42ed35f87e9f98dfd7d7d6c8297383e0;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 0bd27bbf..60351bd4 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -144,6 +144,7 @@ sub process
 				my $ref = $busy{$_};
 				if (exists $ref->{lastt} && $main::systime >= $ref->{lastt} + $timeout) {
 					dbg('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
+					Log('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
 					$ref->stop_msg($node);
 					
 					# delay any outgoing messages that fail