X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=c86880c9013f48460244004455337790832184d1;hb=0372dfcfb12b34b2d22f799e7534240631131ef3;hp=2d9706bb083ecb377c8e3d22df157b38a49725be;hpb=d8b5173a253b0e32501b412922cc7aba3e1c7072;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/op.c b/op.c
index 2d9706b..c86880c 100644
--- a/op.c
+++ b/op.c
@@ -3739,8 +3739,10 @@ newSVREF(OP *o)
 	o->op_ppaddr = ppaddr[OP_PADSV];
 	return o;
     }
-    else if (o->op_type == OP_THREADSV)
+    else if (o->op_type == OP_THREADSV && !(o->op_flags & OPpDONE_SVREF)) {
+	o->op_flags |= OPpDONE_SVREF;
 	return o;
+    }
     return newUNOP(OP_RV2SV, 0, scalar(o));
 }