Moved some PAR stuff

[catagits/Catalyst-Runtime.git] / t / live / lib / TestApp / View / Dump.pm

diff --git a/t/live/lib/TestApp/View/Dump.pm b/t/live/lib/TestApp/View/Dump.pm
index 71130aa..ad0f546 100644 (file)
--- 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;