diff options
| author | Obfuscoder | 2014-10-17 12:34:27 +0200 |
|---|---|---|
| committer | Obfuscoder | 2014-10-17 13:33:37 +0200 |
| commit | b092ffb6e08643a7dc553369eac6d2dcd205f0c3 (patch) | |
| tree | 3b10268622ad34b87295e34e32d29bc3089499dd /scripts | |
| parent | 2b01fd9e9ab8fb490a167eb3a8d7b2cde4e5f4f6 (diff) | |
| download | scripts.irssi.org-b092ffb6e08643a7dc553369eac6d2dcd205f0c3.tar.bz2 | |
Fix perlcritic issues in 8ball
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/8-ball.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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; } |