* Merge back with trunk to r1810

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

diff --git a/src/Modules/wtf.pl b/src/Modules/wtf.pl
index f79da4f9aa265fdd44b02eecaac7756990b5892c..74a9e73e9e9bcad7b9d9cbf6c1feda8bc995d6ac 100644 (file)
--- a/src/Modules/wtf.pl
+++ b/src/Modules/wtf.pl
@@ -13,40 +13,37 @@ package wtf;
 use strict;
 
 sub wtf::wtf {
-       my $query = shift;
-       my $binary;
-       my @binaries = (
-               '/usr/games/wtf',
-               '/usr/local/bin/wtf'
-       );
-       foreach (@binaries) {
-               if (-x $_) {
-                       $binary=$_;
-                       last;
-               }
-       }
-       if (!$binary) {
-               return("no binary found.");
-       }
-       if ($query =~ /^$|[^\w]/){
-               return("usage: wtf <foo>.");
-       }
-       if (!&::validExec($query)) {
-               return("argument appears to be fuzzy.");
-       }
+    my $query = shift;
+    my $binary;
+    my @binaries = ( '/usr/games/wtf', '/usr/local/bin/wtf' );
+    foreach (@binaries) {
+        if ( -x $_ ) {
+            $binary = $_;
+            last;
+        }
+    }
+    if ( !$binary ) {
+        return ("no binary found.");
+    }
+    if ( $query =~ /^$|[^\w]/ ) {
+        return ("usage: wtf <foo>.");
+    }
+    if ( !&::validExec($query) ) {
+        return ("argument appears to be fuzzy.");
+    }
 
-       my $reply ='';
-       foreach (`$binary '$query' 2>&1`){
-               $reply .= $_;
-       }
-       $reply =~ s/\n/ /;
-       chomp($reply);
-       return($reply);
+    my $reply = '';
+    foreach (`$binary '$query' 2>&1`) {
+        $reply .= $_;
+    }
+    $reply =~ s/\n/ /;
+    chomp($reply);
+    return ($reply);
 }
 
 sub wtf::query {
-       &::performStrictReply(&wtf(@_));
-       return;
+    &::performStrictReply( &wtf(@_) );
+    return;
 }
 
 1;