In perl.git, the branch smueller/hash_vtable has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bcdd01ed148704df11a4ae9a9d8b6a50052547ad?hp=b74d6a184417c044ea2eadd48adc9121bba2ad67>
- Log ----------------------------------------------------------------- commit bcdd01ed148704df11a4ae9a9d8b6a50052547ad Author: Steffen Mueller <[email protected]> Date: Fri Feb 3 16:35:30 2017 +0100 Hash vtables: Fix SAVEPPTR bug for deletes ----------------------------------------------------------------------- Summary of changes: hv_vtbl.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/hv_vtbl.c b/hv_vtbl.c index 749fdaab45..8f8068b005 100644 --- a/hv_vtbl.c +++ b/hv_vtbl.c @@ -37,11 +37,10 @@ S_hv_mock_std_vtable_delete(pTHX_ HV *hv, SV *keysv, const char *key, /* THIS IS PURELY FOR TESTING! */ XPVHV* xhv = (XPVHV *)SvANY(hv); - HV_VTBL *vtable = xhv->xhv_vtbl; ENTER; /* localize vtable such that hv_common takes the normal code path */ - SAVEPPTR(vtable); + SAVEPPTR(xhv->xhv_vtbl); xhv->xhv_vtbl = NULL; retval = MUTABLE_SV(hv_common(hv, keysv, key, klen, key_flags, delete_flags, NULL, hash)); -- Perl5 Master Repository
