make $ prototype to accept THREADSVs

p4raw-id: //depot/perl@1623

1 files changed, 5 insertions, 1 deletions

diff --git a/op.c b/op.c
index b2169dcda5..fc2e7da461 100644
--- a/op.c
+++ b/op.c
@@ -4827,8 +4827,12 @@ ck_subr(OP *o)
 			bad_type(arg, "sub", gv_ename(namegv), o2);
 		    goto wrapref;
 		case '$':
-		    if (o2->op_type != OP_RV2SV && o2->op_type != OP_PADSV)
+		    if (o2->op_type != OP_RV2SV
+			&& o2->op_type != OP_PADSV
+			&& o2->op_type != OP_THREADSV)
+		    {
 			bad_type(arg, "scalar", gv_ename(namegv), o2);
+		    }
 		    goto wrapref;
 		case '@':
 		    if (o2->op_type != OP_RV2AV && o2->op_type != OP_PADAV)