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
