made the badword hash handling better

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index 36db8ffba44384d76a3bc8acbc9789d0447cbbef..dc0a10fc74a7c047a6944ac5644bdea1bfc18e33 100644 (file)
--- a/perl/BadWords.pm
+++ b/perl/BadWords.pm
@@ -104,8 +104,6 @@ sub check
        return @out if @out;
        
        for (split(/\s+/, $s)) {
-               s/[^\w]//g;
-               push @out, $_ if $badword->in($_);
                s/\'?S$//;
                push @out, $_ if $badword->in($_);
        }