diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-02-18 17:56:13 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-02-18 17:56:13 +0000 |
commit | ce5d06123ae0253bf2e33033ffbfba16ce3bb79e (patch) | |
tree | bea2d0d5c1bf30c097544ae027fb92115e28363e /hv.c | |
parent | 5693d826577600a198e0f93a41f0ca319f85a889 (diff) | |
download | perl-ce5d06123ae0253bf2e33033ffbfba16ce3bb79e.tar.gz |
newHV doesn't need to turn off POK or NOK, as they will default to not
being set.
p4raw-id: //depot/perl@30345
Diffstat (limited to 'hv.c')
-rw-r--r-- | hv.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 |