aboutsummaryrefslogtreecommitdiff
path: root/lib/IRC/Client.pm6
diff options
context:
space:
mode:
Diffstat (limited to 'lib/IRC/Client.pm6')
-rw-r--r--lib/IRC/Client.pm65
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 3879ac9..e5696b4 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -267,7 +267,10 @@ method !handle-event ($e) {
$s.is-connected = True;
take 'irc-connected';
}
- take 'irc-' ~ $e.command, $event-name;
+
+ # prefix numerics with 'n' as irc-\d+ isn't a valid identifier
+ take 'irc-' ~ ('n' if $e ~~ IRC::Client::Message::Numeric)
+ ~ $e.command, $event-name;
}
default { take $event-name }
}