aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2016-01-03 11:49:28 -0500
committerZoffix Znet <cpan@zoffix.com>2016-01-03 11:49:28 -0500
commitd506b9126205008926d96f1fd28124b2da340081 (patch)
tree5b3dd67c3f4619a4c0697d15be302a84363d155e /lib
parentd9e3011f53cfbe342a5101f2d402aa842a4da5ce (diff)
Use our variable instead of a private one
Diffstat (limited to 'lib')
-rw-r--r--lib/IRC/Client.pm68
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);