In perl.git, the branch smueller/hash_vtable has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0c46d9e638cf4383f6bbed7084abc77a44bfeb5e?hp=ec076b5594db75c679eb4306c7ea6df0f23dcbb7>
- Log ----------------------------------------------------------------- commit 0c46d9e638cf4383f6bbed7084abc77a44bfeb5e Author: Steffen Mueller <smuel...@cpan.org> Date: Mon Jan 30 09:18:42 2017 +0100 Hash vtables: Only run vtable init if it's not NULL ----------------------------------------------------------------------- Summary of changes: hv.c | 3 ++- hv.h | 1 - 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/hv.c b/hv.c index 2e0531e923..5938bdfaf0 100644 --- a/hv.c +++ b/hv.c @@ -236,7 +236,8 @@ Perl_newHV_type(pTHX_ HV_VTBL *type) XPVHV *xhv = (XPVHV*)SvANY(hv); xhv->xhv_vtbl = type; - type->hvt_init(aTHX_ hv); + if (type) + type->hvt_init(aTHX_ hv); return hv; } diff --git a/hv.h b/hv.h index b1d86c4620..d66d14adb3 100644 --- a/hv.h +++ b/hv.h @@ -652,7 +652,6 @@ Creates a new HV. The reference count is set to 1. =cut */ -/* regular newHV implementation */ #define newHV() MUTABLE_HV(newSV_type(SVt_PVHV)) #include "hv_func.h" -- Perl5 Master Repository