changed return in send_announce to next!

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c7e2abdbe44ef671be8ae3a80244338c7c045746..97a0b0d2bd0de2be0291e16e4909be3e9536cd5e 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -911,7 +911,7 @@ sub send_announce
 
                if ($dxchan->{annfilter}) {
                        ($filter, $hops) = Filter::it($dxchan->{annfilter}, @_, $self->{call} );
-                       return unless $filter;
+                       next unless $filter;
                } 
                if ($dxchan->is_ak1a) {
                        next if $dxchan == $self;