diff options
author | Zoffix Znet <cpan@zoffix.com> | 2016-01-03 11:49:28 -0500 |
---|---|---|
committer | Zoffix Znet <cpan@zoffix.com> | 2016-01-03 11:49:28 -0500 |
commit | d506b9126205008926d96f1fd28124b2da340081 (patch) | |
tree | 5b3dd67c3f4619a4c0697d15be302a84363d155e /lib | |
parent | d9e3011f53cfbe342a5101f2d402aa842a4da5ce (diff) |
Use our variable instead of a private one
Diffstat (limited to 'lib')
-rw-r--r-- | lib/IRC/Client.pm6 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6 index bcc1c6e..7cbe1ef 100644 --- a/lib/IRC/Client.pm6 +++ b/lib/IRC/Client.pm6 @@ -78,16 +78,16 @@ method handle-event ($e) { } my $nick = $!nick; - if ( ( $e<command> eq 'PRIVMSG' and $e<params>[0] eq $!nick ) - or ( $e<command> eq 'NOTICE' and $e<params>[0] eq $!nick ) + if ( ( $e<command> eq 'PRIVMSG' and $e<params>[0] eq $nick ) + or ( $e<command> eq 'NOTICE' and $e<params>[0] eq $nick ) or ( $e<command> eq 'PRIVMSG' and $e<params>[1] ~~ /:i ^ $nick <[,:]> \s+/ ) ) { 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 ); + 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); |