projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added some extra spaced out swearwords
[spider.git]
/
perl
/
BadWords.pm
diff --git
a/perl/BadWords.pm
b/perl/BadWords.pm
index 63ec8c881aa5e9db936ecc7fc3582f4577ce3e2d..9814e3fadd5ef712d25315887d1582e2c509d338 100644
(file)
--- a/
perl/BadWords.pm
+++ b/
perl/BadWords.pm
@@
-76,6
+76,10
@@
sub check
return "COCK";
} elsif ($s =~ /S[\s\W]*H[\s\W]*[I1][\s\W]*T/) {
return "SHIT";
return "COCK";
} elsif ($s =~ /S[\s\W]*H[\s\W]*[I1][\s\W]*T/) {
return "SHIT";
+ } elsif ($s =~ /P[\s\W]*[I1][\s\W]*S[\s\W]*S/) {
+ return "PISS";
+ } elsif ($s =~ /B[\s\W]*[O0][\s\W]*L[\s\W]*L[\s\W]*[O0][\s\W]*[CK]/) {
+ return "BOLLOCKS";
}
return ();
}
return ();