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 (file)
--- 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