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

diff --git a/Changes b/Changes
index e60696e747a77ce965d99c326a5fba6486500073..4e14f0877969aceca1cf44b625fcd2a58bc8c12e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+21Dec05=======================================================================
+1. Add start of optional SQL working.
+2. Fix BadWords so that the simple word check splits words on word boundaries.
 13Dec05=======================================================================
 1. upissue version no to 1.52
 07Nov05=======================================================================

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($_);
        }