From 060f09e9e2f1e5d99c9abcc627544b1e04f019ee Mon Sep 17 00:00:00 2001 From: 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