Fix scalar dereference of threadsv variables (e.g. $$_).

p4raw-id: //depot/perl@291

1 files changed, 3 insertions, 1 deletions

diff --git a/op.c b/op.c
index dd4c5acd48..0024f2b781 100644
--- a/op.c
+++ b/op.c
@@ -3740,8 +3740,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));
 }