From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 28 Mar 2009 21:33:29 +0000 (-0400)
Subject: class_of in MetaRole::_make_new_metaclass
X-Git-Tag: 0.73_01~36^2~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6fa722119f316a7fad51dc33ccdc72c4a4cbdaa3;p=gitmo%2FMoose.git

class_of in MetaRole::_make_new_metaclass
---

diff --git a/lib/Moose/Util/MetaRole.pm b/lib/Moose/Util/MetaRole.pm
index d78cff7..4855867 100644
--- a/lib/Moose/Util/MetaRole.pm
+++ b/lib/Moose/Util/MetaRole.pm
@@ -43,7 +43,7 @@ sub _make_new_metaclass {
     my $for     = shift;
     my $options = shift;
 
-    return $for->meta()
+    return Class::MOP::class_of($for)
         unless grep { exists $options->{ $_ . '_roles' } }
             qw(
             metaclass