projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add if you swear 3 or more times you are unceremoniously logged out
[spider.git]
/
perl
/
BadWords.pm
diff --git
a/perl/BadWords.pm
b/perl/BadWords.pm
index 81e7ec90eee67c57a93bb52cb08b4079dea100c3..9814e3fadd5ef712d25315887d1582e2c509d338 100644
(file)
--- a/
perl/BadWords.pm
+++ b/
perl/BadWords.pm
@@
-76,9
+76,13
@@
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
undef
;
+ return
()
;
}
1;
}
1;