Fix perlcritic issues in 8ball

diff --git a/_data/scripts.yaml b/_data/scripts.yaml
index 29a0b317884dedb4ff9da0b5d5606709bc66d5ef..0868a14b12900c02276913a1a51323dfc1fd36c2 100644 (file)
--- a/_data/scripts.yaml
+++ b/_data/scripts.yaml
@@ -3,11 +3,11 @@
   contact: "gein@knivby.nu"
   description: "Dont like to take decisions? Have the 8-ball do it for you instead."
   filename: "8-ball.pl"
-  modified: "2008-05-22 00:59:07"
+  modified: "2014-10-17 12:37:00"
   license: "GPL"
   modules: "IO::File"
   name: "8-ball"
-  version: "0.20"
+  version: "0.21"
 
 - authors: "Dani Soufi (compengi)"
   contact: "IRC: Freenode network, #ubuntu-lb"

diff --git a/scripts/8-ball.pl b/scripts/8-ball.pl
index 04564a74f8a5c9553b0e71478dcfb6cf1930dc88..508708078b55242d174fe0ff08f0aedb5922cfd1 100644 (file)
--- a/scripts/8-ball.pl
+++ b/scripts/8-ball.pl
@@ -28,7 +28,7 @@ use vars qw($VERSION %IRSSI);
 
 use Irssi qw(command_bind signal_add);
 use IO::File;
-$VERSION = '0.20';
+$VERSION = '0.21';
 %IRSSI = (
        authors         => 'Patrik Jansson',
        contact         => 'gein@knivby.nu',
@@ -46,7 +46,7 @@ sub public_question {
        my ($server, $msg, $nick, $address, $target) = @_;
        question($server, $msg, $nick.": ", $target);
 }
-sub question($server, $msg, $nick, $target) {
+sub question {
        my ($server, $msg, $nick, $target) = @_;
        $_ = $msg;
        if (!/^8-ball/i) { return 0; }