[Catalyst-commits] r9638 - Catalyst-Runtime/5.80/branches/register_actions/lib/Catalyst

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-02 01:23:26 +0100 (Thu, 02 Apr 2009)
New Revision: 9638

Modified:
   Catalyst-Runtime/5.80/branches/register_actions/lib/Catalyst/ClassData.pm
Log:
We actually need Moose::Object::meta to avoid metaclass incompat fail, or at least this fixes the test..

Modified: Catalyst-Runtime/5.80/branches/register_actions/lib/Catalyst/ClassData.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/register_actions/lib/Catalyst/ClassData.pm	2009-04-01 23:20:30 UTC (rev 9637)
+++ Catalyst-Runtime/5.80/branches/register_actions/lib/Catalyst/ClassData.pm	2009-04-02 00:23:26 UTC (rev 9638)
@@ -13,7 +13,7 @@
   my $accessor =  sub {
     my $pkg = ref $_[0] || $_[0];
     # Hack - delberately create a metaclass instance
-    my $meta = $pkg->Class::MOP::Object::meta();
+    my $meta = $pkg->Moose::Object::meta();
     if (@_ > 1) {
       $meta->namespace->{$attribute} = \$_[1];
       return $_[1];