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+