allow blank in field 4 of PC10

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f75d55c231e0c9b0e51ec79896d4c5de1ae48ff9..e2c1dae4221ebdc9cceca1ce97c14b09d11637f4 100644 (file)
--- 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) ],                                  #