X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=2d26d27a2e1392d9f8e432fb66041b6ab0af5ba6;hp=55aa48ae99eb41b03c312f346e80e36ffa511abc;hb=147821eab8e53e503cc526fe9aff8e57d0168434;hpb=4dc24f349d31b9351f55e4e8e6c8aa07b91c3c20 diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 55aa48a..2d26d27 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -16,8 +16,6 @@ use Path::Class; use Time::HiRes qw/gettimeofday tv_interval/; use URI; use Scalar::Util qw/weaken/; -use Hash::Util qw/lock_hash/; -use HTTP::Headers::ReadOnly; use attributes; __PACKAGE__->mk_accessors( @@ -1025,11 +1023,7 @@ Finalizes cookies. =cut -sub finalize_cookies { - my $c = shift; - $c->engine->finalize_cookies( $c, @_ ); - lock_hash( %$_ ) for $c->res->cookies, values %{ $c->res->cookies }; -} +sub finalize_cookies { my $c = shift; $c->engine->finalize_cookies( $c, @_ ) } =item $c->finalize_error @@ -1072,8 +1066,6 @@ sub finalize_headers { $c->engine->finalize_headers( $c, @_ ); - bless $c->response->headers, "HTTP::Headers::ReadOnly"; - # Done $c->response->{_finalized_headers} = 1; } @@ -1781,9 +1773,6 @@ Writes $data to the output stream. When using this method directly, you will need to manually set the C header to the length of your output data, if known. -Also note that any headers created after the write can no longer be added, and -this includes cookies. - =cut sub write {