X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=1fdbfebf288a180ba4ddfb254f90fad091428a5e;hb=8408d70a428be0de835bb09ade1ff86c58e1e094;hp=29a2188489c19bb9614f1e4cc0f2bf6c6de27d11;hpb=4904ee278992db70da965b94627728085b88de54;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm index 29a2188..1fdbfeb 100644 --- a/lib/Catalyst/Engine.pm +++ b/lib/Catalyst/Engine.pm @@ -14,6 +14,8 @@ use Moose::Util::TypeConstraints; use Plack::Loader; use Plack::Middleware::Conditional; use Plack::Middleware::ReverseProxy; +use Encode (); +use utf8; use namespace::clean -except => 'meta'; @@ -155,6 +157,14 @@ sub finalize_error { $c->res->content_type('text/html; charset=utf-8'); my $name = ref($c)->config->{name} || join(' ', split('::', ref $c)); + + # Prevent Catalyst::Plugin::Unicode::Encoding from running. + # This is a little nasty, but it's the best way to be clean whether or + # not the user has an encoding plugin. + + if ($c->can('encoding')) { + $c->{encoding} = ''; + } my ( $title, $error, $infos ); if ( $c->debug ) { @@ -303,11 +313,12 @@ sub finalize_error { - # Trick IE. Old versions of IE would display their own error page instead # of ours if we'd give it less than 512 bytes. $c->res->{body} .= ( ' ' x 512 ); + $c->res->{body} = Encode::encode("UTF-8", $c->res->{body}); + # Return 500 $c->res->status(500); }