From: Yuval Kogman <nothingmuch@woobling.org>
Date: Thu, 24 Jul 2008 13:58:59 +0000 (+0000)
Subject: ignore metaclass in superclasses if it isn't a Class::MOP::Class but still found... 
X-Git-Tag: 0_55~40
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=102735fff4981e9e82d7d2f6829210b81ae0273a;p=gitmo%2FMoose.git

ignore metaclass in superclasses if it isn't a Class::MOP::Class but still found in ->meta
---

diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm
index 92a84b1..6535a68 100644
--- a/lib/Moose/Meta/Class.pm
+++ b/lib/Moose/Meta/Class.pm
@@ -282,6 +282,7 @@ sub _fix_metaclass_incompatability {
     foreach my $super (@superclasses) {
         # don't bother if it does not have a meta.
         next unless $super->can('meta');
+        next unless $super->meta->isa("Class::MOP::Class");
         # get the name, make sure we take
         # immutable classes into account
         my $super_meta_name = ($super->meta->is_immutable