From eef5d189206ebcfaf8e83675803829c72671a320 Mon Sep 17 00:00:00 2001 From: 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.43.0