From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 18 Feb 2007 17:56:13 +0000 (+0000)
Subject: newHV doesn't need to turn off POK or NOK, as they will default to not
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce5d06123ae0253bf2e33033ffbfba16ce3bb79e;p=p5sagit%2Fp5-mst-13.2.git

newHV doesn't need to turn off POK or NOK, as they will default to not
being set.

p4raw-id: //depot/perl@30345
---

diff --git a/hv.c b/hv.c
index ccc10df..903d0b8 100644
--- a/hv.c
+++ b/hv.c
@@ -1401,8 +1401,7 @@ Perl_newHV(pTHX)
 
     sv_upgrade((SV *)hv, SVt_PVHV);
     xhv = (XPVHV*)SvANY(hv);
-    SvPOK_off(hv);
-    SvNOK_off(hv);
+    assert(!SvOK(hv));
 #ifndef NODEFAULT_SHAREKEYS
     HvSHAREKEYS_on(hv);         /* key-sharing on by default */
 #endif