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 --- scripts/8-ball.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scripts') 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