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 /pp.c | |
parent | c20642991d8e8afa0a97a45a55f0f04df68e5245 (diff) | |
download | perl-ef8d46e8143455a8b73aff3ecaa10ca3cf293a4d.tar.gz |
SvREFCNT_dec already checks if the SV is non-NULL (continued)
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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; |