From: John Napiorkowski <jjn1056@yahoo.com>
Date: Wed, 7 Jan 2015 18:40:42 +0000 (-0600)
Subject: if we change encoding on $c after asking for a write_fh we want to make sure catalyst... 
X-Git-Tag: 5.90079_008~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=688e2420d1731666afab58c3e8dcfc1cffd6c2d1

if we change encoding on $c after asking for a write_fh we want to make sure catalyst does the right thing
---

diff --git a/lib/Catalyst/Response.pm b/lib/Catalyst/Response.pm
index 186eb0d..13a1f63 100644
--- a/lib/Catalyst/Response.pm
+++ b/lib/Catalyst/Response.pm
@@ -67,7 +67,7 @@ sub _build_write_fh {
   my $requires_encoding = $_[0]->encodable_response;
   my %fields = (
     _writer => $writer,
-    _encoding => $_[0]->_context->encoding,
+    _context => $_[0]->_context,
     _requires_encoding => $requires_encoding,
   );
 
diff --git a/lib/Catalyst/Response/Writer.pm b/lib/Catalyst/Response/Writer.pm
index 55cbdd1..5044bbd 100644
--- a/lib/Catalyst/Response/Writer.pm
+++ b/lib/Catalyst/Response/Writer.pm
@@ -5,7 +5,7 @@ sub close { shift->{_writer}->close }
 
 sub write_encoded {
   my ($self, $line) = @_;
-  if((my $enc = $self->{_encoding}) && $self->{_requires_encoding}) {
+  if((my $enc = $self->{_context}->encoding) && $self->{_requires_encoding}) {
     # Not going to worry about CHECK arg since Unicode always croaks I think - jnap
     $line = $enc->encode($line);
   }