X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Finsult.pl;h=a09beae2939bc03b2b39f92f9df7ab8f964016ab;hb=3936a3e1255582305fc4200485b71fa692e66bd3;hp=e39fbccf03c2a65d480faa2474555e5ebc356516;hpb=8b54ff5060a6605e169acc0694cb00b89ed22cab;p=infobot.git

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index e39fbcc..a09beae 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,7 +32,7 @@ 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');
 
     &::performStrictReply("$whois nothing but a$n $adj $amt of $adj2 $noun");
 }