X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FView%2FDump%2FResponse.pm;fp=t%2Flib%2FTestApp%2FView%2FDump%2FResponse.pm;h=3f9b361751db04c3286eaaa9c46b06eae41faa80;hp=010d01c10583da3bfefb651dffca0bd79d9e4be9;hb=faa02805570aed25eec5879f9a9383c5b16fb3cd;hpb=4c21ba3bd6fd11b9ba6e6af65bf25a497c3709b1

diff --git a/t/lib/TestApp/View/Dump/Response.pm b/t/lib/TestApp/View/Dump/Response.pm
index 010d01c..3f9b361 100644
--- a/t/lib/TestApp/View/Dump/Response.pm
+++ b/t/lib/TestApp/View/Dump/Response.pm
@@ -5,7 +5,10 @@ use base qw[TestApp::View::Dump];
 
 sub process {
     my ( $self, $c ) = @_;
-    return $self->SUPER::process( $c, $c->response );
+    my $r = $c->response;
+    local $r->{_writer};
+    local $r->{_reponse_cb};
+    return $self->SUPER::process( $c, $r );
 }
 
 1;