X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=75b88abc8e450f3fb4934bd0dcae5e14cda262a0;hb=dfe257a9a1412fc920c081aadc333f3c64c7b539;hp=e5fa41a8f3bce122e574f0728660d31899875fe9;hpb=c1eb1d4013a7d748c0fc22f778ddb719dc151a1b;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index e5fa41a8..75b88abc 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -134,7 +134,7 @@ sub process
 				$ref->stop_msg($node);
 
 				# delay any outgoing messages that fail
-				$ref->{waitt} = $main::systime + $waittime if $node ne $main::mycall;
+				$ref->{waitt} = $main::systime + $waittime + rand(120) if $node ne $main::mycall;
 			}
 		}
 		
@@ -273,7 +273,7 @@ sub process
 			} else {
 				$self->send(DXProt::pc42($f[2], $f[1], $f[3]));	# unknown stream
 			}
-			queue_msg(0);
+			# queue_msg(0);
 			last SWITCH;
 		}