diff --git a/lib/commands/get.pm b/lib/commands/get.pm index 9b6db930a0b359747fb2f7d61c661543386d0e3b..bc6de5abc68499ecf12fc943b416a1f9d56a34ff 100644 --- a/lib/commands/get.pm +++ b/lib/commands/get.pm @@ -14,7 +14,7 @@ our $irc; our $log; sub exec { - my ($nick, $chan, $msg) = @_; + my ($chan, $msg) = @_; my $query = commands::get::query->new( chan => $chan->[0], diff --git a/lib/commands/parser.pm b/lib/commands/parser.pm index cccdd55522ea663d6d94ae96aa4d3f574e439364..8ef89e622290fa23898e9143641e02d819a6b650 100644 --- a/lib/commands/parser.pm +++ b/lib/commands/parser.pm @@ -82,7 +82,7 @@ sub exec { } elsif ($msg =~ /^( *!get)(?: +.*)?$/) { $msg = substr $msg, (length $1) + 1; - my @args = ($nick, $chan, $msg); + my @args = ($chan, $msg); my $id = commands::get::exec(@args); if ($id) { diff --git a/lib/sessions/irc/later.pm b/lib/sessions/irc/later.pm index 2711d30d9161c465562820930cb286bf92ad5ae9..605d10775f793f904ae11a18462c278a474ca364 100644 --- a/lib/sessions/irc/later.pm +++ b/lib/sessions/irc/later.pm @@ -7,7 +7,7 @@ sub consume { my ($nick, $id) = @_; - my @args = ($nick, [$nick], $id); + my @args = ([$nick], $id); commands::get::exec(@args); }