X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=71cef0e220d81071f5ddf931973020cb301a1b49;hb=f52bf428cfd46825c2e2fcd3a0ba55097bbe7bd6;hp=f6e1e75dc86c0ff093348eb945ab2db35141e711;hpb=7b125939d7c1542f951286e03c28f9cddbfe4fce;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f6e1e75d..71cef0e2 100644
--- 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;
 			}