projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8825f74
)
added some extra spaced out swearwords
author
minima
<minima>
Mon, 1 Oct 2001 20:37:18 +0000
(20:37 +0000)
committer
minima
<minima>
Mon, 1 Oct 2001 20:37:18 +0000
(20:37 +0000)
perl/BadWords.pm
patch
|
blob
|
history
perl/Editable.pm
patch
|
blob
|
history
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";
+ } 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 ();
diff --git
a/perl/Editable.pm
b/perl/Editable.pm
index 3dd7cff97b5eccdf418e402a737f692cb73c633a..86a951675cb94c8acb6cb7ecc278d4beaf03f2b0 100644
(file)
--- a/
perl/Editable.pm
+++ b/
perl/Editable.pm
@@
-62,7
+62,7
@@
sub modline
if (my @ans = BadWord::check($line)) {
return ($dxchan->msg('e17', @ans));
}
- ${$self->{lines}}[$no]
,
$line;
+ ${$self->{lines}}[$no]
=
$line;
return ();
}