[Catalyst-commits] r8947 - Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component/Role

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-12-26 00:40:13 +0000 (Fri, 26 Dec 2008)
New Revision: 8947

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component/Role/CaptureApp.pm
Log:
Turn the captured $app into a weak reference.

Right now that won't change anything, but it'll prevent problems when $app will
be an instance.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component/Role/CaptureApp.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component/Role/CaptureApp.pm	2008-12-26 00:31:41 UTC (rev 8946)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component/Role/CaptureApp.pm	2008-12-26 00:40:13 UTC (rev 8947)
@@ -5,7 +5,7 @@
 
 # Future - isa => 'ClassName|Catalyst' performance?
 #           required => 1 breaks tests..
-has _application => (is => 'ro');
+has _application => (is => 'ro', weak_ref => 1);
 sub _app { (shift)->_application(@_) }
 
 override BUILDARGS => sub {