From: Yuval Kogman <nothingmuch@woobling.org>
Date: Wed, 20 Aug 2008 17:20:39 +0000 (+0000)
Subject: update_package_flag in alias
X-Git-Tag: 0_64_01~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6474e97fead75b945381a995bf9d21cfb457636;p=gitmo%2FClass-MOP.git

update_package_flag in alias
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 07a4d41..c79e174 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -720,6 +720,8 @@ sub alias_method {
     $self->add_package_symbol(
         { sigil => '&', type => 'CODE', name => $method_name } => $body
     );
+
+    $self->update_package_cache_flag; # the method map will not list aliased methods
 }
 
 sub has_method {