From: Stevan Little <stevan.little@iinteractive.com>
Date: Tue, 2 May 2006 18:01:20 +0000 (+0000)
Subject: fix
X-Git-Tag: 0_29_02~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84e3c6302990ce2502e08b0f4011a67feaa869bf;p=gitmo%2FClass-MOP.git

fix
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 2184c0d..17da3df 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -413,7 +413,7 @@ sub remove_method {
 sub get_method_list {
     my $self = shift;
     no strict 'refs';
-    grep { $self->has_method($_) } %{$self->name . '::'};
+    grep { $self->has_method($_) } keys %{$self->name . '::'};
 }
 
 sub compute_all_applicable_methods {