From: Andy Grundman <andy@hybridized.org>
Date: Thu, 27 Oct 2005 15:57:32 +0000 (+0000)
Subject: Killed the last memory leak
X-Git-Tag: 5.7099_04~1096
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=fb9b4097e68731458806e9f2e6d699c6a2b16ad4

Killed the last memory leak
---

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;