In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/74401f9c0e7d7248493d3f2bb0f4fdb0b20a92aa?hp=009b2635b7aa9c5ccb2d91ef5ce0cd7f079301d0>
- Log ----------------------------------------------------------------- commit 74401f9c0e7d7248493d3f2bb0f4fdb0b20a92aa Author: Father Chrysostomos <[email protected]> Date: Sat Oct 23 18:55:29 2010 -0700 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. ----------------------------------------------------------------------- Summary of changes: hv.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/hv.c b/hv.c index 15735a3..89941d8 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); } -- Perl5 Master Repository
