From 31bc3c36404cb801b82f53fdafd8ca630c2e4535 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 8 Mar 2003 10:07:38 +0000
Subject: [PATCH] fix checking pc12

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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 26a36548..1b361d06 100644
--- 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) ],					# 
-- 
2.34.1