diff options
author | Vincent Pit <vince@profvince.com> | 2009-11-08 15:48:07 +0100 |
---|---|---|
committer | Vincent Pit <perl@profvince.com> | 2009-11-08 15:58:43 +0100 |
commit | ef8d46e8143455a8b73aff3ecaa10ca3cf293a4d (patch) | |
tree | 9a4235cdaec67a513f0058aa796affae779786cd /hv.c | |
parent | c20642991d8e8afa0a97a45a55f0f04df68e5245 (diff) | |
download | perl-ef8d46e8143455a8b73aff3ecaa10ca3cf293a4d.tar.gz |
SvREFCNT_dec already checks if the SV is non-NULL (continued)
Diffstat (limited to 'hv.c')
-rw-r--r-- | hv.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -2149,8 +2149,7 @@ Perl_hv_iternext_flags(pTHX_ HV *hv, I32 flags) HeSVKEY_set(entry, SvREFCNT_inc_simple_NN(key)); return entry; /* beware, hent_val is not set */ } - if (HeVAL(entry)) - SvREFCNT_dec(HeVAL(entry)); + SvREFCNT_dec(HeVAL(entry)); Safefree(HeKEY_hek(entry)); del_HE(entry); iter->xhv_eiter = NULL; /* HvEITER(hv) = NULL */ |