X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=8c565797d586490f0384492319aea6b870e30d8e;hb=668e4252d23e2eda2a6b234f1031e1c1a5f43d15;hp=5f9ebc32540579447a117eb4c8b2e0bc4654b8bf;hpb=f4f8550d98c41dc69643c701a442016777561902;p=spider.git 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; + } } }