This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
allow read(FH,threadsv,...)
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 6 Jul 1998 17:15:26 +0000 (17:15 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 6 Jul 1998 17:15:26 +0000 (17:15 +0000)
p4raw-id: //depot/perl@1337

op.c

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: