From: minima <minima>
Date: Thu, 4 Oct 2001 14:19:03 +0000 (+0000)
Subject: made the badword hash handling better
X-Git-Tag: R_1_49~63
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=060f09e9e2f1e5d99c9abcc627544b1e04f019ee;p=spider.git

made the badword hash handling better
---

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