squelch undef warnings

[p5sagit/p5-mst-13.2.git] / cop.h

diff --git a/cop.h b/cop.h
index 4d02019..f15b1e1 100644 (file)
--- 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)            \