slight tweak
Stevan Little [Thu, 13 Dec 2007 04:21:22 +0000 (04:21 +0000)]
lib/Moose/Meta/Class.pm

index af5c401..860509d 100644 (file)
@@ -110,7 +110,7 @@ sub get_method_map {
     my $self = shift;
 
     if (defined $self->{'$!_package_cache_flag'} &&
-                $self->{'$!_package_cache_flag'} == Class::MOP::check_package_cache_flag(blessed $self)) {
+                $self->{'$!_package_cache_flag'} == Class::MOP::check_package_cache_flag($self->meta->name)) {
         return $self->{'%!methods'};
     }