return;
}
+ # is it 'baddx'
+ if ($DXProt::baddx->in($call)) {
+ dbg("RBN: Bad DX spot '$call', ignored");
+ dbg($line) if isdbg('nologchan');
+ return;
+ }
+
+
# remove all extraneous crap from the origin - just leave the base callsign
my $norigin = basecall($origin);
unless ($norigin) {
my $call = shift;
my $base = basecall($call);
my $ref = $seeme{$base};
- return unless @$ref;
+ return unless $ref && @$ref;
@$ref = grep {$_ ne $call} @$ref;
if (@$ref) {