X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Finsult.pl;h=57acc2de8aebf453ae7d234f9c20da19c4f9c7f7;hb=cb81fea9939f349b36e3b5a0cdc0343a6b781da1;hp=4ff90eec971e82523df8e4e069bf9ce89f327ef0;hpb=e507fbca30840ad7962dba78328ee4f6e32b739b;p=infobot.git

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 4ff90ee..57acc2d 100644
--- a/src/Modules/insult.pl
+++ b/src/Modules/insult.pl
@@ -14,12 +14,12 @@ sub Insult {
     my @adjs;
     my @amts;
     my @nouns;
-    &::DEBUG("Reading insult data");
+    &::DEBUG('Reading insult data');
     while (<DATA>) {
 	chomp;
-	push(@adjs, split(" ", $1)) if /^adj\s*(.*)/;
-	push(@amts, split(" ", $1)) if /^amt\s*(.*)/;
-	push(@nouns, split(" ", $1)) if /^noun\s*(.*)/;
+	push(@adjs, split(' ', $1)) if /^adj\s*(.*)/;
+	push(@amts, split(' ', $1)) if /^amt\s*(.*)/;
+	push(@nouns, split(' ', $1)) if /^noun\s*(.*)/;
     }
     grep(s/\|/ /g, @adjs);
     grep(s/\|/ /g, @amts);
@@ -32,13 +32,15 @@ sub Insult {
     my $adj2 = @adjs[rand(@adjs)];
     my $noun = @nouns[rand(@nouns)];
     my $whois = "$insultwho is";
-    $whois = "You are" if ($insultwho eq $::who or $insultwho eq "me");
+    $whois = 'You are' if ($insultwho eq $::who or $insultwho eq 'me');
 
-    &::pSReply("$whois nothing but a$n $adj $amt of $adj2 $noun");
+    &::performStrictReply("$whois nothing but a$n $adj $amt of $adj2 $noun");
 }
 
 1;
 
+# vim:ts=4:sw=4:expandtab:tw=80
+
 __DATA__
 #
 # configuration file for colorado insult server