* Add vim formatting comments ( # vim:ts=4:sw=4:expandtab:tw=80 )

[infobot.git] / src / Modules / insult.pl

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 4ff90eec971e82523df8e4e069bf9ce89f327ef0..57acc2de8aebf453ae7d234f9c20da19c4f9c7f7 100644 (file)
--- 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