allow read(FH,threadsv,...)

p4raw-id: //depot/perl@1337

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index fa5a60b362..eef23c1768 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: