From: minima <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.org/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;
+				}
 			}
 		}