From: minima <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]);