From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 28 Mar 2009 21:25:37 +0000 (-0400)
Subject: class_of TCs
X-Git-Tag: 0.73_01~36^2~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37edf27e10aa98df38b08274d78791dea08cda4c;p=gitmo%2FMoose.git

class_of TCs
---

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index b792f59..bd1f63b 100644
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -598,7 +598,7 @@ $_->make_immutable(
     # these are Class::MOP accessors, so they need inlining
     inline_accessors => 1
     ) for grep { $_->is_mutable }
-    map { $_->meta }
+    map { Class::MOP::class_of($_) }
     qw(
     Moose::Meta::TypeConstraint
     Moose::Meta::TypeConstraint::Union