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

class_of in apply_base_class_roles
---

diff --git a/lib/Moose/Util/MetaRole.pm b/lib/Moose/Util/MetaRole.pm
index 70f9a16..5cb451b 100644
--- a/lib/Moose/Util/MetaRole.pm
+++ b/lib/Moose/Util/MetaRole.pm
@@ -77,7 +77,7 @@ sub apply_base_class_roles {
 
     my $for = $options{for_class};
 
-    my $meta = $for->meta();
+    my $meta = Class::MOP::class_of($for);
 
     my $new_base = _make_new_class(
         $for,