X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fnamespace%2Fclean.pm;h=d11a7c46a348ac3d2448c382a7772321c2beb3ea;hb=99d2e6b61c03d29efc6848f563f67308cb0da816;hp=d7c9a1076c55714e7ccbba4e9801316fcfcf19b4;hpb=472d4b1e844e78b06c74e5792999e388a886c5fe;p=p5sagit%2Fnamespace-clean.git diff --git a/lib/namespace/clean.pm b/lib/namespace/clean.pm index d7c9a10..d11a7c4 100644 --- a/lib/namespace/clean.pm +++ b/lib/namespace/clean.pm @@ -15,11 +15,11 @@ use Filter::EOF; =head1 VERSION -0.05 +0.06 =cut -$VERSION = 0.05; +$VERSION = 0.06; $STORAGE_VAR = '__NAMESPACE_CLEAN_STORAGE'; =head1 SYNOPSIS @@ -128,8 +128,10 @@ sub import { no strict 'refs'; # keep original value to restore non-code slots - local *__tmp = *{ ${ "${cleanee}::" }{ $f } }; - delete ${ "${cleanee}::" }{ $f }; + { no warnings 'uninitialized'; # fix possible unimports + local *__tmp = *{ ${ "${cleanee}::" }{ $f } }; + delete ${ "${cleanee}::" }{ $f }; + } SLOT: # restore non-code slots to symbol