From 386acf993e4765f33c76310e325b49bb66186a57 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 22 Jul 1998 06:12:50 +0000 Subject: [PATCH] make $ prototype to accept THREADSVs p4raw-id: //depot/perl@1623 --- op.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 1.8.3.1