From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 6 Jul 2010 06:18:53 +0000 (-0500)
Subject: use _real_ref_name
X-Git-Tag: 1.15~38
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed0861573263b2955516cf8555d2909ff35ed166;hp=7df0ec56f9cdbde09d688099a08b3e38a654d535;p=gitmo%2FMoose.git

use _real_ref_name
---

diff --git a/lib/Moose.pm b/lib/Moose.pm
index a138bd9..53f6f12 100644
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -181,9 +181,7 @@ sub init_meta {
         foreach my $ancestor ( @isa ) {
             my $ancestor_meta = Class::MOP::get_metaclass_by_name($ancestor) || next;
 
-            my $ancestor_meta_class = ($ancestor_meta->is_immutable
-                ? $ancestor_meta->_get_mutable_metaclass_name
-                : ref($ancestor_meta));
+            my $ancestor_meta_class = $ancestor_meta->_real_ref_name;
 
             # if we have an ancestor metaclass that inherits $metaclass, we use
             # that. This is like _fix_metaclass_incompatibility, but we can do it now.