From: minima Date: Sun, 20 Aug 2000 20:58:38 +0000 (+0000) Subject: more check stuff X-Git-Tag: R_1_44~24 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=26d388e9e65e585c9883ba19fc9b12bdf5aec525;p=spider.git more check stuff --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index fb6ed209..f8f8ecf7 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -53,7 +53,7 @@ $baddxfn = "$main::data/baddx.pl"; ( [ qw(c c m p bc c) ], # pc10 [ qw(f m d t m c c h) ], # pc11 - [ qw(c bc m p c p h) ], # pc12 + [ qw(c bc m p bc p h) ], # pc12 [ qw(c h) ], # [ qw(c h) ], # [ qw(c m h) ], # @@ -143,6 +143,7 @@ sub check shift; # not interested in the first field for ($i = 0; $i < @_; $i++) { my ($blank, $act) = $$ref[$i] =~ /^(b?)(\w)$/; + return 0 unless $act; next if $blank && $_[$i] =~ /^[ \*]$/; if ($act eq 'c') { return $i+1 unless is_callsign($_[$i]);