From: Chris Prather <chris@prather.org>
Date: Thu, 13 Dec 2007 03:02:03 +0000 (+0000)
Subject: Class::MOP::check_package_cache_flag() is mro::get_pkg_gen which requires an argument
X-Git-Tag: 0_33^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=baad192b0523696ae7de95bbbf61cdb77cd9d04c;p=gitmo%2FMoose.git

Class::MOP::check_package_cache_flag() is mro::get_pkg_gen which requires an argument
---

diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm
index 8f25e1d..af5c401 100644
--- a/lib/Moose/Meta/Class.pm
+++ b/lib/Moose/Meta/Class.pm
@@ -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()) {
+                $self->{'$!_package_cache_flag'} == Class::MOP::check_package_cache_flag(blessed $self)) {
         return $self->{'%!methods'};
     }