From b092ffb6e08643a7dc553369eac6d2dcd205f0c3 Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 17 Oct 2014 12:34:27 +0200
Subject: Fix perlcritic issues in 8ball

---
 _data/scripts.yaml | 4 ++--
 scripts/8-ball.pl  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/_data/scripts.yaml b/_data/scripts.yaml
index 29a0b31..0868a14 100644
--- 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 04564a7..5087080 100644
--- 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; }
-- 
cgit v1.2.3