diff options
| author | Zoffix Znet <cpan@zoffix.com> | 2016-07-30 21:07:49 -0400 |
|---|---|---|
| committer | Zoffix Znet <cpan@zoffix.com> | 2016-07-30 21:07:49 -0400 |
| commit | 6edfc2405f31181c133579857b1498ff613ad479 (patch) | |
| tree | b3a5fc5d9cd9bb2fc8bfa4d5aebbddd9fbf7ae8b /lib | |
| parent | 04be2b889cc95bd8c96d10f70a4ce44bdde11239 (diff) | |
Fix broken regex match in signature3.003005
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/IRC/Client.pm6 | 6 | ||||
| -rw-r--r-- | lib/IRC/Client/Message.pm6 | 2 |
2 files changed, 4 insertions, 4 deletions
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; |