From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 6 Jul 1998 17:15:26 +0000 (+0000)
Subject: allow read(FH,threadsv,...)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77808da1249dc49b6d1ea4171ebce9989b18ea3f;p=p5sagit%2Fp5-mst-13.2.git

allow read(FH,threadsv,...)

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

diff --git a/op.c b/op.c
index fa5a60b..eef23c1 100644
--- a/op.c
+++ b/op.c
@@ -4870,6 +4870,7 @@ ck_sysread(OP *o)
 	OP *kid = cLISTOPo->op_first->op_sibling;
 	if (kid && (kid = kid->op_sibling)) {
 	    switch (kid->op_type) {
+	    case OP_THREADSV:
 	    case OP_HELEM:
 	    case OP_AELEM:
 	    case OP_SASSIGN: