X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=1b47918ad1ee3708386a9e5e8e7be9db81c43a62;hb=2328d24b6808f6d51f7338858bed5d0f12b95821;hp=f021840f8ffa43f78e17fc8d14ba8d7fb478d47b;hpb=ca61d34f13c31a99817431a3dd4f20a5ec19c6c7;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index f021840..1b47918 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -83,7 +83,7 @@ __PACKAGE__->stats_class('Catalyst::Stats'); # Remember to update this in Catalyst::Runtime as well! -our $VERSION = '5.90001'; +our $VERSION = '5.90002'; sub import { my ( $class, @arguments ) = @_; @@ -1713,6 +1713,7 @@ sub finalize_headers { $response->body( qq{

This item has moved here.

} ); + $response->content_type('text/html; charset=utf-8'); } } @@ -2334,10 +2335,6 @@ sub setup_components { shift->container->setup_components } =cut -# FIXME - removed locate_components -# don't people mess with this method directly? -# what to do with that? - sub locate_components { my $class = shift; @@ -2507,16 +2504,6 @@ sub apply_default_middlewares { }, ); - my $server_matches = sub { - my ($re) = @_; - return sub { - my ($env) = @_; - my $server = $env->{SERVER_SOFTWARE}; - return unless $server; - return $server =~ $re ? 1 : 0; - }; - }; - # If we're running under Lighttpd, swap PATH_INFO and SCRIPT_NAME # http://lists.scsys.co.uk/pipermail/catalyst/2006-June/008361.html $psgi_app = Plack::Middleware::LighttpdScriptNameFix->wrap($psgi_app);