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

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

diff --git a/Changes b/Changes
index 07f4b75..73b5fb3 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for IRC::Client
- 
+
+3.003005  2016-07-30
+    - Fix Privmsg message object match in signature regex
+    - Fix warnings in output
+
 3.003004  2016-07-30
     - Fix precompilation bug for Terminal::ANSIColor loading (MasterDuke)
 
diff --git a/META6.json b/META6.json
index 4b1c662..e73f22a 100644
--- a/META6.json
+++ b/META6.json
@@ -1,7 +1,7 @@
 {
     "perl"         : "6.c",
     "name"         : "IRC::Client",
-    "version"      : "3.003004",
+    "version"      : "3.003005",
     "description"  : "Extendable Internet Relay Chat client",
     "depends"      : [
     ],
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