X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBadWords.pm;h=dc0a10fc74a7c047a6944ac5644bdea1bfc18e33;hb=060f09e9e2f1e5d99c9abcc627544b1e04f019ee;hp=36db8ffba44384d76a3bc8acbc9789d0447cbbef;hpb=3408a64d909b16e38d6c5977e81b014110e1e980;p=spider.git

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index 36db8ffb..dc0a10fc 100644
--- 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($_);
 	}