aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2016-07-19 13:16:16 -0400
committerZoffix Znet <cpan@zoffix.com>2016-07-19 13:16:16 -0400
commitc341e8432ef33b5a598e6b9d3a75855f02104b6c (patch)
treeb07602cf2ebb555ec0377a63b0dd84c0197c7205
parent505933841a1384c234be7b05739c4713b0ee4022 (diff)
Blahg
-rw-r--r--examples/bot.pl66
-rw-r--r--lib/IRC/Client.pm62
2 files changed, 4 insertions, 4 deletions
diff --git a/examples/bot.pl6 b/examples/bot.pl6
index 7d76630..47b7149 100644
--- a/examples/bot.pl6
+++ b/examples/bot.pl6
@@ -15,11 +15,11 @@ my $irc = IRC::Client.new(
:channels<#perl6 #perl7>
# :host<irc.freenode.net>
:port<6667>
- :servers(
- mine => { :port<5667> },
+ # :servers(
+ # mine => { :port<5667> },
# inspircd => { },
# freenode => { :host<irc.freenode.net> },
- )
+ # )
:plugins(MyPlug.new)
).run;
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 6803203..dc86287 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -93,7 +93,7 @@ method !handle-event ($e) {
.lc.subst: '::', '-', :g;
$!debug >= 2 and debug-print "emitting `$method`", :sys;
for self!plugs-that-can: $method {
- last if ."$method"($e).^name eq 'IRC_FLAG_HANDLED';
+ last if ."$method"($e).?^name.&[eq]: 'IRC_FLAG_HANDLED';
}
}