diff options
| -rw-r--r-- | Changes | 6 | ||||
| -rw-r--r-- | META6.json | 2 | ||||
| -rw-r--r-- | lib/IRC/Client.pm6 | 6 | ||||
| -rw-r--r-- | lib/IRC/Client/Message.pm6 | 2 |
4 files changed, 10 insertions, 6 deletions
@@ -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) @@ -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; |