Perl_hv_name_add needs to set xhv_name_count in one other place.

Perl_hv_name_add was not setting the name count when upgrading a HEK*
to an array of HEK*s.

1 files changed, 1 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index 15735a30a8..89941d8375 100644
--- a/hv.c
+++ b/hv.c
@@ -2084,7 +2084,7 @@ Perl_hv_name_add(pTHX_ HV *hv, const char *name, U32 len)
 	    HEK_LEN(existing_name) == (I32)len
 	 && memEQ(HEK_KEY(existing_name), name, len)
 	) return;
-	Newxc(aux->xhv_name, 2, HEK *, HEK);
+	Newxc(aux->xhv_name, aux->xhv_name_count = 2, HEK *, HEK);
 	*(HEK **)aux->xhv_name = existing_name;
 	((HEK **)aux->xhv_name)[1] = share_hek(name, len, hash);
     }