From: Dave Rolsky <autarch@urth.org>
Date: Fri, 29 Aug 2008 18:28:31 +0000 (+0000)
Subject: Fix the instance metaclass incompatibility error to make it clear that
X-Git-Tag: 0.64_07~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2607a7f5facebe68cf85e493f86fa7eed58eeb05;p=gitmo%2FClass-MOP.git

Fix the instance metaclass incompatibility error to make it clear that
it's talking about the instance metaclass.
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 1096e0f..0197114 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -169,9 +169,9 @@ sub check_metaclass_compatability {
         # we also need to check that instance metaclasses
         # are compatabile in the same the class.
         ($self->instance_metaclass->isa($meta->instance_metaclass))
-            || confess $self->name . "->meta => (" . ($self->instance_metaclass) . ")" .
+            || confess $self->name . "->meta->instance_metaclass => (" . ($self->instance_metaclass) . ")" .
                        " is not compatible with the " .
-                       $class_name . "->meta => (" . ($meta->instance_metaclass) . ")";
+                       $class_name . "->meta->instance_metaclass => (" . ($meta->instance_metaclass) . ")";
     }
 }