allow read(FH,threadsv,...)

p4raw-id: //depot/perl@1337

diff --git a/op.c b/op.c
index fa5a60b..eef23c1 100644 (file)
--- 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: