summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2021-10-19 09:12:00 +1100
committerNicholas Clark <nick@ccl4.org>2021-10-19 06:15:00 +0000
commit8461dd8ad90b2bce86c336f34690373141edfddd (patch)
treeeb7949a6f2d14451de78d63791af799a2dabbad1 /sv.c
parentbd09be5b1b65f68dd41433db47acee101aa69f7b (diff)
downloadperl-8461dd8ad90b2bce86c336f34690373141edfddd.tar.gz
don't overwrite the faked up type details for hv-with-aux
CID 340472
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 989017d5ab..2218988981 100644
--- a/sv.c
+++ b/sv.c
@@ -6987,8 +6987,8 @@ Perl_sv_clear(pTHX_ SV *const orig_sv)
}
else {
arena_index = type;
+ sv_type_details = bodies_by_type + arena_index;
}
- sv_type_details = bodies_by_type + arena_index;
if (sv_type_details->arena) {
del_body(((char *)SvANY(sv) + sv_type_details->offset),
&PL_body_roots[type]);