fix split on simple words so that it splits on word boundaries

[spider.git] / perl / BadWords.pm

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index 3d7404387664d34ffe7e44cda5d7380a31f2ccd2..c21fe975d68c00d625f447629472eb8563561f24 100644 (file)
--- a/perl/BadWords.pm
+++ b/perl/BadWords.pm
@@ -107,7 +107,6 @@ sub check
        return @out if @out;
        
        for (split(/\b/, $s)) {
-               s/\'?S$//;
                push @out, $_ if $badword->in($_);
        }