make the fix for intermittent bulls a bit more efficient

[spider.git] / perl / DXMsg.pm

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 5f9ebc32540579447a117eb4c8b2e0bc4654b8bf..8c565797d586490f0384492319aea6b870e30d8e 100644 (file)
--- 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;
+                               }
                        }
                }