made more improvements

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f6e1e75dc86c0ff093348eb945ab2db35141e711..71cef0e220d81071f5ddf931973020cb301a1b49 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -415,7 +415,7 @@ sub normal
                        }
 
                        # is it 'baddx'
-                       if ($baddx->in($field[2]) || BadWords::check($field[2])) {
+                       if ($baddx->in($field[2]) || BadWords::check($field[2]) || $field[2] =~ /COCK/) {
                                dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
                                return;
                        }