From: Shawn M Moore <sartak@bestpractical.com>
Date: Sat, 19 Feb 2011 04:07:14 +0000 (-0500)
Subject: Use the is_anon_class method we already have
X-Git-Tag: 2.0001~29
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ff3b0482f51245523eaa3421ed15ec05c926367;p=gitmo%2FMoose.git

Use the is_anon_class method we already have
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index ec803e4..43628f2 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -449,7 +449,7 @@ sub _remove_generated_metaobjects {
         return if in_global_destruction(); # it'll happen soon anyway and this just makes things more complicated
 
         $self->free_anon_class
-            unless $name =~ /^$ANON_CLASS_PREFIX/o;
+            if $self->is_anon_class;
     }
 
     sub free_anon_class {