X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=cop.h;h=f15b1e125d4d7ff58b1cc7ee2ce69875206b6f9f;hb=9f6ab4074f86da83f9650997df3135d1f2daf062;hp=4d020196cd1ca96233efd4da351be2850d747bfa;hpb=599cee73f2261c5e09cde7ceba3f9a896989e117;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/cop.h b/cop.h
index 4d02019..f15b1e1 100644
--- a/cop.h
+++ b/cop.h
@@ -143,7 +143,7 @@ struct block_loop {
 #define POPLOOP2()							\
 	SvREFCNT_dec(cxloop.iterlval);					\
 	if (cxloop.itervar) {						\
-	    SvREFCNT_dec(*cxloop.itervar);				\
+	    sv_2mortal(*cxloop.itervar);				\
 	    *cxloop.itervar = cxloop.itersave;				\
 	}								\
 	if (cxloop.iterary && cxloop.iterary != PL_curstack)		\