From 3ac88c21abe28b60bd5b26a8dae2474ad3e81f8a Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 3 Sep 1999 11:20:18 +0000
Subject: [PATCH] made filtering work properly for spots

---
 perl/DXProt.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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) {
-- 
2.34.1