From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 22 Jul 1998 06:12:50 +0000 (+0000)
Subject: make $ prototype to accept THREADSVs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=386acf993e4765f33c76310e325b49bb66186a57;p=p5sagit%2Fp5-mst-13.2.git

make $ prototype to accept THREADSVs

p4raw-id: //depot/perl@1623
---

diff --git a/op.c b/op.c
index b2169dc..fc2e7da 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)