Similiarly Perl_newHV() can become a mathom by making newHV() a

wrapper around newSV_type() and tweaking Perl_sv_upgrade().

p4raw-id: //depot/perl@32676

1 files changed, 10 insertions, 0 deletions

diff --git a/hv.h b/hv.h
index b8d6b7d243..dd35ae58e6 100644
--- a/hv.h
+++ b/hv.h
@@ -528,6 +528,16 @@ struct refcounted_he {
 #define HV_DELETE		0x40
 
 /*
+=for apidoc newHV
+
+Creates a new HV.  The reference count is set to 1.
+
+=cut
+*/
+
+#define newHV()	((HV*)newSV_type(SVt_PVHV))
+
+/*
  * Local variables:
  * c-indentation-style: bsd
  * c-basic-offset: 4