Skip to content
Extraits de code Groupes Projets
Valider ed0e7f3b rédigé par Alexandre Morignot's avatar Alexandre Morignot
Parcourir les fichiers

[commands::get] remove (another) useless arg

parent 8efc0676
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -14,7 +14,7 @@ our $irc; ...@@ -14,7 +14,7 @@ our $irc;
our $log; our $log;
sub exec { sub exec {
my ($nick, $chan, $msg) = @_; my ($chan, $msg) = @_;
my $query = commands::get::query->new( my $query = commands::get::query->new(
chan => $chan->[0], chan => $chan->[0],
......
...@@ -82,7 +82,7 @@ sub exec { ...@@ -82,7 +82,7 @@ sub exec {
} }
elsif ($msg =~ /^( *!get)(?: +.*)?$/) { elsif ($msg =~ /^( *!get)(?: +.*)?$/) {
$msg = substr $msg, (length $1) + 1; $msg = substr $msg, (length $1) + 1;
my @args = ($nick, $chan, $msg); my @args = ($chan, $msg);
my $id = commands::get::exec(@args); my $id = commands::get::exec(@args);
if ($id) { if ($id) {
......
...@@ -7,7 +7,7 @@ sub consume ...@@ -7,7 +7,7 @@ sub consume
{ {
my ($nick, $id) = @_; my ($nick, $id) = @_;
my @args = ($nick, [$nick], $id); my @args = ([$nick], $id);
commands::get::exec(@args); commands::get::exec(@args);
} }
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter