X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDeclare.pm;h=6217b57e0b43c6190a3b6ac0e36664693d15373c;hb=a84a41f645fa3e9c0afbdd7acc3bf1a5fb6404fe;hp=4e6ec020b98893150714f96d85cc368ae461de56;hpb=78ac150eed7a9e490339fe8cd31e270d55160646;p=p5sagit%2FDevel-Declare.git

diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm
index 4e6ec02..6217b57 100644
--- a/lib/Devel/Declare.pm
+++ b/lib/Devel/Declare.pm
@@ -97,6 +97,7 @@ sub shadow_sub {
   no strict 'refs';
   my ($pack, $pname) = ($name =~ m/(.+)::([^:]+)/);
   push(@$temp_save, $pack->can($pname));
+  delete ${ "${pack}::" }{$pname};
   no warnings 'redefine';
   no warnings 'prototype';
   *{$name} = $cr;