From 060f09e9e2f1e5d99c9abcc627544b1e04f019ee Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 4 Oct 2001 14:19:03 +0000
Subject: [PATCH] made the badword hash handling better

---
 perl/BadWords.pm | 2 --
 1 file changed, 2 deletions(-)

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