X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMethod.pm;h=fca4601b9795803aba1208e297aa462868c172cc;hb=7917b031541dcd794700b28e5b336d3bb342b694;hp=cfc524121545d756969326bb79764575fd64c194;hpb=dc77c65e6ea69eb8c280163cbf80cc602b979218;p=gitmo%2FMoose.git

diff --git a/lib/Class/MOP/Method.pm b/lib/Class/MOP/Method.pm
index cfc5241..fca4601 100644
--- a/lib/Class/MOP/Method.pm
+++ b/lib/Class/MOP/Method.pm
@@ -127,6 +127,7 @@ sub clone {
     my $self = shift;
 
     my $clone = bless { %{$self}, @_ }, blessed($self);
+    weaken($clone->{associated_metaclass}) if $clone->{associated_metaclass};
 
     $clone->_set_original_method($self);