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/IRC/Client.pm6 | |
parent | 04be2b889cc95bd8c96d10f70a4ce44bdde11239 (diff) |
Fix broken regex match in signature3.003005
Diffstat (limited to 'lib/IRC/Client.pm6')
-rw-r--r-- | lib/IRC/Client.pm6 | 6 |
1 files changed, 3 insertions, 3 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 { |