X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=f6e1e75dc86c0ff093348eb945ab2db35141e711;hb=7b125939d7c1542f951286e03c28f9cddbfe4fce;hp=d3b39cb32097963b2ba0da0023b54fef9df8505b;hpb=060f09e9e2f1e5d99c9abcc627544b1e04f019ee;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index d3b39cb3..f6e1e75d 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -415,7 +415,7 @@ sub normal } # is it 'baddx' - if ($baddx->in($field[2])) { + if ($baddx->in($field[2]) || BadWords::check($field[2])) { dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr'); return; }