diff options
| author | Steve Peters <steve@fisharerojo.org> | 2009-11-28 23:45:10 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2009-11-28 23:45:10 -0600 |
| commit | a917e5da001c2e01ede95e432a105b1aa899f1e5 (patch) | |
| tree | b4e92d0c2636de6d398aa65df051a2f438d73929 /doop.c | |
| parent | ff868e665bf85a829dc47bfa1243b26d4367cacd (diff) | |
| parent | 23e33b604408d78c7993c7ba35b0a4323eb9feeb (diff) | |
| download | perl-a917e5da001c2e01ede95e432a105b1aa899f1e5.tar.gz | |
Merge branch 'blead' of ssh://stevep@perl5.git.perl.org/gitroot/perl into blead
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1191,8 +1191,7 @@ Perl_do_chomp(pTHX_ register SV *sv) } nope: - if (svrecode) - SvREFCNT_dec(svrecode); + SvREFCNT_dec(svrecode); Safefree(temp_buffer); return count; @@ -1467,8 +1466,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); |