fix checking pc12

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 26a36548646c8a62a65291051f41703eb758b95d..1b361d0602b19563ea00851fd6c63d96dfc98af5 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -76,7 +76,7 @@ $chatdupeage = 20 * 60 * 60;
 (
  [ qw(c c m bp bc c) ],                        # pc10
  [ qw(f m d t m c c h) ],              # pc11
- [ qw(c bm m bp bm p h) ],             # pc12
+ [ qw(c bm m bm bm p h) ],             # pc12
  [ qw(c h) ],                                  # 
  [ qw(c h) ],                                  # 
  [ qw(c m h) ],                                        #