From d7f602413382660a58d14cc78e666e7f3c4b87bf Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sun, 3 Jan 2016 12:04:41 -0500
Subject: Fix incorrect who in irc-to-me

---
 lib/IRC/Client.pm6 | 6 +++---
 1 file 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;
         }
     }
-- 
cgit v1.1