diff options
| author | David Leadbeater | 2014-10-17 12:42:10 +0100 |
|---|---|---|
| committer | David Leadbeater | 2014-10-17 12:42:10 +0100 |
| commit | 263a56d196da657b72ccf2b195b50008d6a988dc (patch) | |
| tree | 0dda93c18238af498996c1410354e4fc9606f03a /scripts | |
| parent | cbcf35aed595db954303831acd343695f0575c07 (diff) | |
| parent | b092ffb6e08643a7dc553369eac6d2dcd205f0c3 (diff) | |
| download | scripts.irssi.org-263a56d196da657b72ccf2b195b50008d6a988dc.tar.bz2 | |
Merge pull request #59 from obfuscoder/8ball
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; } |