From: minima <minima>
Date: Mon, 1 Oct 2001 20:37:18 +0000 (+0000)
Subject: added some extra spaced out swearwords
X-Git-Tag: R_1_49~90
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=e0cfa6eebc0cddc92fe3c45636e6f1f641edda1b

added some extra spaced out swearwords
---

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 ();
 }