X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fnamespace%2Fclean.pm;h=156bde09032667ea3e503f5b90d82f6ec157d0ea;hb=5460fcfb77326c9e5f10b6f6961b4e3eb96e6dd2;hp=eccd295d8ae2b3c26d7ae91dbe64c6ff8b9958f9;hpb=5e215f25ceaee155862a500b6a38e50323976e7d;p=p5sagit%2Fnamespace-clean.git

diff --git a/lib/namespace/clean.pm b/lib/namespace/clean.pm
index eccd295..156bde0 100644
--- a/lib/namespace/clean.pm
+++ b/lib/namespace/clean.pm
@@ -278,7 +278,10 @@ information about function names included and excluded from removal.
 sub get_class_store {
     my ($pragma, $class) = @_;
     my $stash = Package::Stash->new($class);
-    return $stash->get_package_symbol("%$STORAGE_VAR");
+    my $var = "%$STORAGE_VAR";
+    $stash->add_package_symbol($var, {})
+        unless $stash->has_package_symbol($var);
+    return $stash->get_package_symbol($var);
 }
 
 =method get_functions