From e0cfa6eebc0cddc92fe3c45636e6f1f641edda1b Mon Sep 17 00:00:00 2001
From: minima <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.34.1