Permalink
Browse files

If an exception message contains multiple lines, give them all the le…

…ft border.
  • Loading branch information...
jnthn committed Aug 19, 2012
1 parent 6ed14c6 commit fc00f0c1bc6dd7a5e5694ec0b2b2f5177d008111
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Debugger/UI/CommandLine.pm
@@ -120,7 +120,7 @@ my class SourceFile {
$ctx_end = +@!lines - 1 if $ctx_end >= @!lines;
return join "\n",
colored("+ Uncaught Exception", 'red'),
- colored('| ', 'red') ~ $e.message,
+ normal_lines($e.message.lines, 'red'),
colored("+ $!filename ($ctx_start.succ() - $ctx_end.succ())", 'red'),
normal_lines(@!lines[$ctx_start..^$line], 'red'),
error_lines([@!lines[$line]]),

0 comments on commit fc00f0c

Please sign in to comment.