X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=ff9d45aaeb57ffbafe96d22effcb6c0a697fc69c;hb=aac4d7dbc1d3c34bf73147a679673d346894984f;hp=bb80e6c1908183ffbb16bf027a34e76c30478243;hpb=02177c2906cf58834b9cec237b34698bb83f73e5;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index bb80e6c1..ff9d45aa 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -724,7 +724,7 @@ sub queue_msg
 			$ref->stop_msg($node);
 			
 			# delay any outgoing messages that fail
-			$ref->{waitt} = $main::systime + $waittime + rand(120) if $node ne $main::mycall;
+			$ref->{waitt} = $main::systime + $waittime + int rand(120) if $node ne $main::mycall;
 			delete $ref->{lastt};
 			next;
 		}