From 668e4252d23e2eda2a6b234f1031e1c1a5f43d15 Mon Sep 17 00:00:00 2001 From: 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.43.0