X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDeclare.pm;h=a3e76bfc866ac885c41b21c9cf6f756db7fd2922;hb=19b7ec0f0850bc54417324d3a200b3e876c5e332;hp=227b3bad8f7e372bc16d1bcdae44e7c985b1065f;hpb=2d50b551dcaf75f6af55c5ed46701e5042d9e8bc;p=p5sagit%2FDevel-Declare.git diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm index 227b3ba..a3e76bf 100644 --- a/lib/Devel/Declare.pm +++ b/lib/Devel/Declare.pm @@ -97,7 +97,6 @@ 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;