diff options
author | Father Chrysostomos <sprout@cpan.org> | 2010-11-15 16:45:15 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-15 16:53:58 -0800 |
commit | 47f1cf770212f10b8ffbc1777e95c1dbfe120c9d (patch) | |
tree | 88dfa0e7f7814942daef17c9a50d24609f6260cf /t/mro | |
parent | 23822bdaac3234cb0c133b1c5f69bef87ed1e7f0 (diff) | |
download | perl-47f1cf770212f10b8ffbc1777e95c1dbfe120c9d.tar.gz |
Keep MRO caches around during hv_clear
This allows it to delete PL_isarev entries.
mro_isa_changed_in only deletes items mentioned in HvMROMETA(hv)->isa,
so it must be present.
Diffstat (limited to 't/mro')
-rw-r--r-- | t/mro/isarev.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/mro/isarev.t b/t/mro/isarev.t index 3c3692e5ad..3bd543d33e 100644 --- a/t/mro/isarev.t +++ b/t/mro/isarev.t @@ -10,7 +10,7 @@ BEGIN { use strict; use warnings; -plan(tests => 23); +plan(tests => 24); use mro; @@ -141,3 +141,7 @@ i buki => qw [], "undeffing a package glob deletes isarev entries"; *bar:: = *baz::; i phoo => qw [], 'clobbering a class w/multiple layers of subclasses updates its parent'; + +@Thrat::ISA = 'Smin'; +%Thrat:: = (); +i Smin => qw [], '%Package:: list assignment'; |