X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=5211b7aa622ec6553084b3371925bd0919d8405a;hb=11056ea11fce910aa0e0d183a1cce73cf0de1c21;hp=c1e83d7907633558f95349df709f8d5cc9b55f18;hpb=7c41fe2814a16ad0f7ced2ec5e50f6e8647010f9;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c1e83d79..5211b7aa 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -812,7 +812,13 @@ sub send_dx_spot
 	# taking into account filtering and so on
 	foreach $dxchan (@dxchan) {
 		my $routeit;
-		my ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @_, $self->{call} ) if $dxchan->{spotfilter};
+		my ($filter, $hops);
+
+		if ($dxchan->{spotfilter}) {
+		    ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @_, $self->{call} );
+			next unless $filter;
+		}
+		
 		if ($dxchan->is_ak1a) {
 			next if $dxchan == $self;
 			if ($hops) {