Index: xs/ModPerl/Util/Util_pm
===================================================================
--- xs/ModPerl/Util/Util_pm	(revision 1086908)
+++ xs/ModPerl/Util/Util_pm	(working copy)
@@ -15,10 +15,12 @@
     # nuking aliases. If we undef directly we may undef not only the
     # alias but the original function as well
 
+    my @keys = ();
     for (keys %$tab) {
         #Skip sub stashes
         next if /::$/;
 
+        push @keys, $_;
         my $fullname = join '::', $package, $_;
         # code/hash/array/scalar might be imported make sure the gv
         # does not point elsewhere before undefing each
@@ -56,6 +58,10 @@
         }
     }
 
+    # remove undef'ed keys from the stash to avoid warnings about
+    # prototype mismatch and subroutine redefinition
+    delete $tab->{$_} for (@keys);
+
     #Wipe from %INC
     $package =~ s[::][/]g;
     $package .= '.pm';