projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3408a64
)
made the badword hash handling better
author
minima
<minima>
Thu, 4 Oct 2001 14:19:03 +0000
(14:19 +0000)
committer
minima
<minima>
Thu, 4 Oct 2001 14:19:03 +0000
(14:19 +0000)
perl/BadWords.pm
patch
|
blob
|
history
diff --git
a/perl/BadWords.pm
b/perl/BadWords.pm
index 36db8ffba44384d76a3bc8acbc9789d0447cbbef..dc0a10fc74a7c047a6944ac5644bdea1bfc18e33 100644
(file)
--- a/
perl/BadWords.pm
+++ b/
perl/BadWords.pm
@@
-104,8
+104,6
@@
sub check
return @out if @out;
for (split(/\s+/, $s)) {
return @out if @out;
for (split(/\s+/, $s)) {
- s/[^\w]//g;
- push @out, $_ if $badword->in($_);
s/\'?S$//;
push @out, $_ if $badword->in($_);
}
s/\'?S$//;
push @out, $_ if $badword->in($_);
}