diff options
author | Vincent Pit <vince@profvince.com> | 2009-11-05 21:55:35 +0100 |
---|---|---|
committer | Vincent Pit <vince@profvince.com> | 2009-11-05 21:55:35 +0100 |
commit | cb39f75f02caa9f23c14dfcac8a46fb1bd154b4f (patch) | |
tree | 92de67be7aa5df0102d523dd5ce2509584a30d5d /doop.c | |
parent | 6f5be6d1e57649daa9cd098564878b601d687e77 (diff) | |
download | perl-cb39f75f02caa9f23c14dfcac8a46fb1bd154b4f.tar.gz |
SvREFCNT_dec already checks if the SV is non-NULL
Diffstat (limited to 'doop.c')
-rw-r--r-- | doop.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1467,8 +1467,7 @@ Perl_do_kv(pTHX) } LvTYPE(TARG) = 'k'; if (LvTARG(TARG) != (const SV *)keys) { - if (LvTARG(TARG)) - SvREFCNT_dec(LvTARG(TARG)); + SvREFCNT_dec(LvTARG(TARG)); LvTARG(TARG) = SvREFCNT_inc_simple(keys); } PUSHs(TARG); |