[Catalyst-commits] r6455 - trunk/Catalyst-Controller-FormBuilder/lib/Catalyst/Controller/FormBuilder

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-06-01 05:26:48 +0100 (Fri, 01 Jun 2007)
New Revision: 6455

Modified:
   trunk/Catalyst-Controller-FormBuilder/lib/Catalyst/Controller/FormBuilder/Action.pm
Log:
KILL THE BLOODY GODDAMN IDIOTIC MEMORY LEAK WILL YOU PEOPLE LEARN TO NOT CREATE CIRCULAR REFERENCES PLEASE

Modified: trunk/Catalyst-Controller-FormBuilder/lib/Catalyst/Controller/FormBuilder/Action.pm
===================================================================
--- trunk/Catalyst-Controller-FormBuilder/lib/Catalyst/Controller/FormBuilder/Action.pm	2007-06-01 00:44:19 UTC (rev 6454)
+++ trunk/Catalyst-Controller-FormBuilder/lib/Catalyst/Controller/FormBuilder/Action.pm	2007-06-01 04:26:48 UTC (rev 6455)
@@ -6,6 +6,7 @@
 use File::Spec;
 use Class::Inspector;
 use NEXT;
+use Scalar::Util ();
 
 use base qw/Catalyst::Action Class::Accessor::Fast Class::Data::Inheritable/;
 
@@ -131,6 +132,7 @@
       $controller->_fb_setup->{action};
 
     my $form = $self->_setup_form(@_);
+    Scalar::Util::weaken($form->{c});
     $controller->_formbuilder($form);
     $self->NEXT::execute(@_);
     $controller->_formbuilder($form);   # keep the same form in case of forwards