summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorVincent Pit <vince@profvince.com>2009-11-05 21:55:35 +0100
committerVincent Pit <vince@profvince.com>2009-11-05 21:55:35 +0100
commitcb39f75f02caa9f23c14dfcac8a46fb1bd154b4f (patch)
tree92de67be7aa5df0102d523dd5ce2509584a30d5d /doop.c
parent6f5be6d1e57649daa9cd098564878b601d687e77 (diff)
downloadperl-cb39f75f02caa9f23c14dfcac8a46fb1bd154b4f.tar.gz
SvREFCNT_dec already checks if the SV is non-NULL
Diffstat (limited to 'doop.c')
-rw-r--r--doop.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/doop.c b/doop.c
index d3c49b5d46..3a5967d6dd 100644
--- a/doop.c
+++ b/doop.c
@@ -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);