X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=22309080dd0066a22271ec02307a59dc491256a4;hb=4427ee06faecbb7a080ca98d2f5ed191ad6dfccf;hp=2c397820a8b0c5640647beb18d2d846c10cac092;hpb=7f92deef6d24d2a7618ba679892189838fcb4dfd;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm index 2c39782..2230908 100644 --- a/lib/Catalyst/Engine.pm +++ b/lib/Catalyst/Engine.pm @@ -118,13 +118,25 @@ sub finalize_error { my $res = encode_entities Dumper $c->res; my $stash = encode_entities Dumper $c->stash; - $infos = join( - "\n", "
", - map { - sprintf "%s
\n
%s
", $_->[0], - encode_entities( Dumper $_->[1] ) - } $c->dump_these - ); + my @infos; + my $i = 0; + for my $dump ( $c->dump_these ) { + my $name = $dump->[0]; + my $value = encode_entities( Dumper $dump->[1] ); + push @infos, sprintf <<"EOF", $name, $value; +
+ + %s + +
+
+
+
%s
+
+EOF + $i++; + } + $infos = join "\n", @infos; } else { $title = $name; @@ -147,6 +159,18 @@ sub finalize_error { $title +