This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #79208] %stash:: = () anonymises CVs
authorFather Chrysostomos <sprout@cpan.org>
Mon, 15 Nov 2010 22:30:07 +0000 (14:30 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 15 Nov 2010 22:52:12 +0000 (14:52 -0800)
commit2d0d1eccfcfe45f2fac66080cd30117a608088f8
treedfac5ad9bcae8f684e3be9790eb4b02130304ffe
parentb4bbb35033d3052b51513513a8fad17b713f78f4
[perl #79208] %stash:: = () anonymises CVs

This keeps stash names visible during %foo:: = ().

This fixes @ISA assignment inside a DESTROY method triggered by
%foo:: = () and also lets existing CVs retain their pointers to
the stash.

So
  %foo:: = ()
is now equivalent to
  delete $foo::{$_} for keys %foo::
hv.c
t/op/stash.t