From: Fuji, Goro <gfuji@cpan.org>
Date: Sun, 26 Sep 2010 13:34:58 +0000 (+0900)
Subject: Fix get_all_attributes() for DFS-based diamond-inherited classes
X-Git-Tag: 0.75~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abc8d59532048a45073888eae5d67b4537198185;hp=cfdb93c63c45d0e81e858631b62a7d4d7be87842;p=gitmo%2FMouse.git

Fix get_all_attributes() for DFS-based diamond-inherited classes
---

diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs
index fd27c5d..3fa716b 100644
--- a/xs-src/Mouse.xs
+++ b/xs-src/Mouse.xs
@@ -88,7 +88,7 @@ mouse_class_has_custom_buildargs(pTHX_ HV* const stash) {
 static void
 mouse_class_update_xc(pTHX_ SV* const metaclass PERL_UNUSED_DECL, HV* const stash, AV* const xc) {
     AV* const linearized_isa = mro_get_linear_isa(stash);
-    I32 const len            = AvFILLp(linearized_isa);
+    I32 const len            = AvFILLp(linearized_isa) + 1;
     I32 i;
     U32 flags             = 0x00;
     AV* const attrall     = newAV();