From e0cfa6eebc0cddc92fe3c45636e6f1f641edda1b Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 1 Oct 2001 20:37:18 +0000 Subject: [PATCH] added some extra spaced out swearwords --- perl/BadWords.pm | 4 ++++ perl/Editable.pm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/perl/BadWords.pm b/perl/BadWords.pm index 63ec8c88..9814e3fa 100644 --- 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 3dd7cff9..86a95167 100644 --- 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 (); } -- 2.43.0