X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=c43ecb111c80230930058ea50f6767b6edb0917d;hb=9735c8aa020a58992ffadba440014d200222da56;hp=d3c49b5d467799c5eceb3cf635fc950fbd75f67b;hpb=a2a5de9516c1b256b060768ac6dad252a3aa3be7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index d3c49b5..c43ecb1 100644
--- a/doop.c
+++ b/doop.c
@@ -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);