summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorVincent Pit <vince@profvince.com>2009-11-08 15:48:07 +0100
committerVincent Pit <perl@profvince.com>2009-11-08 15:58:43 +0100
commitef8d46e8143455a8b73aff3ecaa10ca3cf293a4d (patch)
tree9a4235cdaec67a513f0058aa796affae779786cd /pp.c
parentc20642991d8e8afa0a97a45a55f0f04df68e5245 (diff)
downloadperl-ef8d46e8143455a8b73aff3ecaa10ca3cf293a4d.tar.gz
SvREFCNT_dec already checks if the SV is non-NULL (continued)
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/pp.c b/pp.c
index bb0e57de7e..86d79fb8d4 100644
--- a/pp.c
+++ b/pp.c
@@ -3200,8 +3200,7 @@ PP(pp_substr)
sv_insert_flags(sv, pos, rem, repl, repl_len, 0);
if (repl_is_utf8)
SvUTF8_on(sv);
- if (repl_sv_copy)
- SvREFCNT_dec(repl_sv_copy);
+ SvREFCNT_dec(repl_sv_copy);
}
else if (lvalue) { /* it's an lvalue! */
if (!SvGMAGICAL(sv)) {
@@ -3381,8 +3380,7 @@ PP(pp_index)
if (retval > 0 && big_utf8)
sv_pos_b2u(big, &retval);
}
- if (temp)
- SvREFCNT_dec(temp);
+ SvREFCNT_dec(temp);
fail:
PUSHi(retval + arybase);
RETURN;