- if ($baddx->in($pc->[2]) || BadWords::check($pc->[2])) {
- dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
+ if ($baddx->in($pc->[2]) || (my @bad = BadWords::check($pc->[2]))) {
+ my $bw = join ', ', @bad;
+ $bw = qq{ '$bw'} if $bw;
+ dbg("PCPROT: Bad DX spot$bw, ignored") if isdbg('chanerr');