Fix incorrect who in irc-to-me

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 7cbe1ef..6eb610f 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -84,13 +84,13 @@ method handle-event ($e) {
                 and $e<params>[1] ~~ /:i ^ $nick <[,:]> \s+/
         )
     ) {
-        my $where = ($e<who><nick>, $e<who><nick>);
-        $where[0] = $e<params>[0]
+        my @where = ($e<who><nick>, $e<who><nick>);
+        @where[0] = $e<params>[0]
             unless ( $e<command> eq 'PRIVMSG' and $e<params>[0] eq $nick )
                 or ( $e<command> eq 'NOTICE'  and $e<params>[0] eq $nick );
 
         for @!plugs.grep(*.^can: 'irc-to-me') -> $p {
-            my $res = $p.irc-to-me(self, $e, |$where);
+            my $res = $p.irc-to-me(self, $e, |@where);
             return unless $res === IRC_NOT_HANDLED;
         }
     }