This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
AVs and HVs never had the NV slot. (Not that this error mattered, as
authorNicholas Clark <nick@ccl4.org>
Wed, 21 Mar 2007 12:20:03 +0000 (12:20 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 21 Mar 2007 12:20:03 +0000 (12:20 +0000)
you can't upgrade from them, and the only code path that uses the
flag in sv_upgrade isn't reached when upgrading to AVs or HVs)

p4raw-id: //depot/perl@30658

sv.c

diff --git a/sv.c b/sv.c
index f24eb29..44b9122 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -928,13 +928,13 @@ static const struct body_details bodies_by_type[] = {
       copy_length(XPVAV, xmg_stash)
       - relative_STRUCT_OFFSET(xpvav_allocated, XPVAV, xav_fill),
       + relative_STRUCT_OFFSET(xpvav_allocated, XPVAV, xav_fill),
-      SVt_PVAV, TRUE, HADNV, HASARENA, FIT_ARENA(0, sizeof(xpvav_allocated)) },
+      SVt_PVAV, TRUE, NONV, HASARENA, FIT_ARENA(0, sizeof(xpvav_allocated)) },
 
     { sizeof(xpvhv_allocated),
       copy_length(XPVHV, xmg_stash)
       - relative_STRUCT_OFFSET(xpvhv_allocated, XPVHV, xhv_fill),
       + relative_STRUCT_OFFSET(xpvhv_allocated, XPVHV, xhv_fill),
-      SVt_PVHV, TRUE, HADNV, HASARENA, FIT_ARENA(0, sizeof(xpvhv_allocated)) },
+      SVt_PVHV, TRUE, NONV, HASARENA, FIT_ARENA(0, sizeof(xpvhv_allocated)) },
 
     /* 56 */
     { sizeof(xpvcv_allocated), sizeof(xpvcv_allocated),