From eef5d189206ebcfaf8e83675803829c72671a320 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 1 Sep 2000 22:17:48 +0000
Subject: [PATCH] allow blank in field 4 of PC10

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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f75d55c2..e2c1dae4 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -51,7 +51,7 @@ $baddxfn = "$main::data/baddx.pl";
 
 @checklist = 
 (
- [ qw(c c m p bc c) ],			# pc10
+ [ qw(c c m bp bc c) ],			# pc10
  [ qw(f m d t m c c h) ],		# pc11
  [ qw(c bc m bp bm p h) ],		# pc12
  [ qw(c h) ],					# 
-- 
2.34.1