Some kind of fix or workaround for phaylon's parameterized role bug in MXD.

[p5sagit/Devel-Declare.git] / lib / Devel / Declare.pm

diff --git a/lib/Devel/Declare.pm b/lib/Devel/Declare.pm
index 4e6ec02..6217b57 100644 (file)
--- 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;