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

class_of in role->combine
---

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index a6ff920..101be10 100644
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -456,7 +456,7 @@ sub combine {
     my (@roles, %role_params);
     while (@role_specs) {
         my ($role, $params) = @{ splice @role_specs, 0, 1 };
-        push @roles => $role->meta;
+        push @roles => Class::MOP::class_of($role);
         next unless defined $params;
         $role_params{$role} = $params; 
     }