From 668e4252d23e2eda2a6b234f1031e1c1a5f43d15 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 13 Sep 2001 23:29:48 +0000
Subject: [PATCH] make the fix for intermittent bulls a bit more efficient

---
 perl/DXMsg.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
+				}
 			}
 		}
 
-- 
2.34.1