X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=2c1ce81a3875f99f2754302522c06aa1b7b66406;hb=e8e0953481a8eb69731d048ec19e15bbd537fd73;hp=0e9ddf12605d4040700d30f372b94289ca75af3f;hpb=4608196e45589eea5792cff92b551109899ddb06;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index 0e9ddf1..2c1ce81 100644
--- a/doop.c
+++ b/doop.c
@@ -1396,7 +1396,7 @@ Perl_do_kv(pTHX)
 	    if (LvTARG(TARG) != (SV*)keys) {
 		if (LvTARG(TARG))
 		    SvREFCNT_dec(LvTARG(TARG));
-		LvTARG(TARG) = SvREFCNT_inc(keys);
+		LvTARG(TARG) = SvREFCNT_inc_simple(keys);
 	    }
 	    PUSHs(TARG);
 	    RETURN;