X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole%2FApplication%2FToRole.pm;fp=lib%2FMoose%2FMeta%2FRole%2FApplication%2FToRole.pm;h=4d37194d40527e1215bc97f2b26825dcb8c6b5f4;hb=ba7d613dcaaf238ed484c40bf70facfe6173ea95;hp=23c634c192558eb12942eed00618f7f156e49c2c;hpb=7f1b08f6a7509fb22b2e44d632725db8c7b9090a;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Role/Application/ToRole.pm b/lib/Moose/Meta/Role/Application/ToRole.pm
index 23c634c..4d37194 100644
--- a/lib/Moose/Meta/Role/Application/ToRole.pm
+++ b/lib/Moose/Meta/Role/Application/ToRole.pm
@@ -81,7 +81,7 @@ sub apply_methods {
 
         my $method_name = $method->name;
 
-        next if $method_name eq 'meta';
+        next if $method->isa('Class::MOP::Method::Meta');
 
         unless ( $self->is_method_excluded($method_name) ) {