From 26d388e9e65e585c9883ba19fc9b12bdf5aec525 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 20 Aug 2000 20:58:38 +0000
Subject: [PATCH] more check stuff

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

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]);
-- 
2.34.1