summaryrefslogtreecommitdiff
path: root/t/mro
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2010-11-15 16:45:15 -0800
committerFather Chrysostomos <sprout@cpan.org>2010-11-15 16:53:58 -0800
commit47f1cf770212f10b8ffbc1777e95c1dbfe120c9d (patch)
tree88dfa0e7f7814942daef17c9a50d24609f6260cf /t/mro
parent23822bdaac3234cb0c133b1c5f69bef87ed1e7f0 (diff)
downloadperl-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.t6
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';