avoid reassigning to temp upon decode_utf8

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

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 4ff90eec971e82523df8e4e069bf9ce89f327ef0..14cba4ca264096e77c93d61d46685ab8af1738df 100644 (file)
--- a/src/Modules/insult.pl
+++ b/src/Modules/insult.pl
@@ -14,31 +14,33 @@ 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*(.*)/;
+        chomp;
+        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);
-    grep(s/\|/ /g, @nouns);
-    srand(); # fork seems to not change rand. force it here
-    my $adj = @adjs[rand(@adjs)];
+    grep( s/\|/ /g, @adjs );
+    grep( s/\|/ /g, @amts );
+    grep( s/\|/ /g, @nouns );
+    srand();    # fork seems to not change rand. force it here
+    my $adj = @adjs[ rand(@adjs) ];
     my $n;
     $n = 'n' if $adj =~ /^[aeiouih]/;
-    my $amt = @amts[rand(@amts)];
-    my $adj2 = @adjs[rand(@adjs)];
-    my $noun = @nouns[rand(@nouns)];
+    my $amt   = @amts[ rand(@amts) ];
+    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