From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 28 Mar 2009 19:39:24 +0000 (-0400)
Subject: Better error message given that we're trying to ignore ->meta
X-Git-Tag: 0.80~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=353ef9368bb63223d368928dc4edeaf916927923;p=gitmo%2FClass-MOP.git

Better error message given that we're trying to ignore ->meta
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index a92aa46..5c65f73 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -169,9 +169,10 @@ sub check_metaclass_compatibility {
             : ref($super_meta);
 
         ($self->isa($super_meta_type))
-            || confess $self->name . "->meta => (" . (ref($self)) . ")" .
-                       " is not compatible with the " .
-                       $superclass_name . "->meta => (" . ($super_meta_type)     . ")";
+            || confess "Class::MOP::class_of(" . $self->name . ") => ("
+                       . (ref($self)) . ")" .  " is not compatible with the " .
+                       "Class::MOP::class_of(".$superclass_name . ") => ("
+                       . ($super_meta_type) . ")";
         # NOTE:
         # we also need to check that instance metaclasses
         # are compatibile in the same the class.