From: minima Date: Thu, 13 Sep 2001 23:29:48 +0000 (+0000) Subject: make the fix for intermittent bulls a bit more efficient X-Git-Tag: R_1_48~20 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=668e4252d23e2eda2a6b234f1031e1c1a5f43d15;p=spider.git make the fix for intermittent bulls a bit more efficient --- diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 5f9ebc32..8c565797 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -655,7 +655,10 @@ sub queue_msg next unless $ref->forward_it($call); # check the forwarding file # if we are here we have a node that doesn't have this message - $ref->start_msg($dxchan) if !get_busy($call) && $dxchan->state eq 'normal'; + if (!get_busy($call) && $dxchan->state eq 'normal') { + $ref->start_msg($dxchan); + last; + } } }