From: Dave Rolsky Date: Mon, 26 Apr 2010 17:32:10 +0000 (-0500) Subject: Fix one more spot to use ->_real_ref_name X-Git-Tag: 1.02~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b74f98bec65307feced9de906140546c4dbc31d8;p=gitmo%2FClass-MOP.git Fix one more spot to use ->_real_ref_name --- diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm index f8b5555..325c913 100644 --- a/lib/Class/MOP/Class.pm +++ b/lib/Class/MOP/Class.pm @@ -368,9 +368,8 @@ sub _fix_class_metaclass_incompatibility { . $self->name . " because it is not pristine."; - my $super_meta_name = $super_meta->is_immutable - ? $super_meta->_get_mutable_metaclass_name - : blessed($super_meta); + my $super_meta_name = $super_meta->_real_ref_name; + $super_meta_name->meta->rebless_instance($self); } }