Fix numeric events being unsubscrabable due to incorrect identifiers

Fixes #31

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 }
         }