* Merge back with trunk to r1810

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

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 57acc2de8aebf453ae7d234f9c20da19c4f9c7f7..14cba4ca264096e77c93d61d46685ab8af1738df 100644 (file)
--- a/src/Modules/insult.pl
+++ b/src/Modules/insult.pl
@@ -16,23 +16,23 @@ sub Insult {
     my @nouns;
     &::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' );
 
     &::performStrictReply("$whois nothing but a$n $adj $amt of $adj2 $noun");
 }