Cleanup the stacktrace when the error is forced and there's no exception

typester · Nov 2, 2010 · 82f910d · 82f910d
1 parent 225080c
commit 82f910d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Plack/Middleware/StackTrace.pm b/lib/Plack/Middleware/StackTrace.pm
@@ -33,7 +33,7 @@ sub call {
     my $res = try { $self->app->($env) } catch { $caught = $_ };
 
     if ($trace && ($caught || ($self->force && ref $res eq 'ARRAY' && $res->[0] == 500)) ) {
-        my $text = $caught . "\n" . $trace->as_string;
+        my $text = (defined $caught ? "$caught\n" : '') . $trace->as_string;
         my $html = $trace->as_html;
         $env->{'plack.stacktrace.text'} = $text;
         $env->{'plack.stacktrace.html'} = $html;