X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fnamespace%2Fclean.pm;h=c208de092ed20fbe3070402b0f69dd221161b8d2;hb=ad4b1a60b4de126e867f1426c33ed5fe969fd45e;hp=156bde09032667ea3e503f5b90d82f6ec157d0ea;hpb=7946e21b41ee8f9d85eaeaf171c7525d1d96fb85;p=p5sagit%2Fnamespace-clean.git

diff --git a/lib/namespace/clean.pm b/lib/namespace/clean.pm
index 156bde0..c208de0 100644
--- a/lib/namespace/clean.pm
+++ b/lib/namespace/clean.pm
@@ -166,7 +166,14 @@ my $RemoveSubs = sub {
             }
         }
 
-        $cleanee_stash->remove_package_symbol($variable);
+        my ($scalar, $array, $hash, $io) = map {
+            $cleanee_stash->get_package_symbol($_ . $f)
+        } '$', '@', '%', '';
+        $cleanee_stash->remove_package_glob($f);
+        for my $var (['$', $scalar], ['@', $array], ['%', $hash], ['', $io]) {
+            next unless defined $var->[1];
+            $cleanee_stash->add_package_symbol($var->[0] . $f, $var->[1]);
+        }
     }
 };