From 6edfc2405f31181c133579857b1498ff613ad479 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sat, 30 Jul 2016 21:07:49 -0400
Subject: Fix broken regex match in signature

---
 lib/IRC/Client.pm6         | 6 +++---
 lib/IRC/Client/Message.pm6 | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 3291474..3f056ff 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -382,9 +382,9 @@ sub debug-print (Str() $str, :$in, :$out, :$sys, :$server) {
             $pref++; $cmd++;
         }
         @bits[$pref] = colored @bits[$pref], 'bold magenta';
-        @bits[$cmd] = @bits[$cmd] ~~ /^ <[0..9]>**3 $/
-            ?? colored(@bits[$cmd], 'bold red')
-            !! colored(@bits[$cmd], 'bold yellow');
+        @bits[$cmd] = (@bits[$cmd]//'') ~~ /^ <[0..9]>**3 $/
+            ?? colored(@bits[$cmd]//'', 'bold red')
+            !! colored(@bits[$cmd]//'', 'bold yellow');
         put colored('▬▬▶ ', 'bold blue' ) ~ $server-str ~ @bits.join: ' ';
     }
     elsif $out {
diff --git a/lib/IRC/Client/Message.pm6 b/lib/IRC/Client/Message.pm6
index 6e92e82..bb1a40b 100644
--- a/lib/IRC/Client/Message.pm6
+++ b/lib/IRC/Client/Message.pm6
@@ -34,7 +34,7 @@ role Ping does M {
 role Privmsg does M {
     has      $.text    is rw;
     has Bool $.replied is rw = False;
-    method ACCEPTS ($what) { $.text ~~ $what }
+    method Str { $.text }
 }
 role Privmsg::Channel does Privmsg {
     has $.channel;
-- 
cgit v1.1