X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive%2Flib%2FTestApp%2FView%2FDump.pm;h=ad0f546a8f4f5f4624692cd5f2662bedad30178e;hb=587b0f5882d4f5e128ae082758da37b065a3efde;hp=71130aa0a0beb6928297d531aa6a47b8822a3ca2;hpb=fbcc39ad23f2bbecf5d84c9ba581e6af86fcd460;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/live/lib/TestApp/View/Dump.pm b/t/live/lib/TestApp/View/Dump.pm
index 71130aa..ad0f546 100644
--- a/t/live/lib/TestApp/View/Dump.pm
+++ b/t/live/lib/TestApp/View/Dump.pm
@@ -4,6 +4,7 @@ use strict;
 use base 'Catalyst::Base';
 
 use Data::Dumper ();
+use Scalar::Util qw(weaken);
 
 sub dump {
     my ( $self, $reference ) = @_;
@@ -42,6 +43,7 @@ sub process {
 
         # Repair context
         $reference->{_context} = $context;
+        weaken( $reference->{_context} );
 
         # Repair body
         $reference->{_body} = $body;