[Bast-commits] r3387 - trunk/Anything/lib/Anything/InterfaceModel/Items/Action

[groditi at dev.catalyst.perl.org]

Author: groditi
Date: 2007-05-28 19:30:18 +0100 (Mon, 28 May 2007)
New Revision: 3387

Modified:
   trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm
Log:
metaclass goes back in scope

Modified: trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm
===================================================================
--- trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm	2007-05-26 10:48:53 UTC (rev 3386)
+++ trunk/Anything/lib/Anything/InterfaceModel/Items/Action/Create.pm	2007-05-28 18:30:18 UTC (rev 3387)
@@ -36,8 +36,9 @@
         );
     }
 
-    return $action_meta->new_object(@_, delayed_fields => \%delayed_fields);
-
+    my $obj = $action_meta->new_object(@_, delayed_fields => \%delayed_fields);
+    $obj->{__keep_metaclass_alive__} = $action_meta;
+    return $obj;
   };
 
   around do_apply => sub {