diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 16:38:27 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 16:38:27 +0000 |
| commit | 533c011aecf9bca2c9ad025efccd7b74ad222cda (patch) | |
| tree | 842693196e76c6669b3d83287b1ed7dda8bf68c3 /doio.c | |
| parent | 8f8722428a3062985b7d543348f72ccabf60a063 (diff) | |
| download | perl-533c011aecf9bca2c9ad025efccd7b74ad222cda.tar.gz | |
PL_ stuff for threads
p4raw-id: //depot/ansiperl@1534
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -671,7 +671,7 @@ do_eof(GV *gv) if (PerlIO_get_cnt(IoIFP(io)) < -1) PerlIO_set_cnt(IoIFP(io),-1); } - if (op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */ + if (PL_op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */ if (!nextargv(PL_argvgv)) /* get another fp handy */ return TRUE; } @@ -875,7 +875,7 @@ my_stat(ARGSproto) IO *io; GV* tmpgv; - if (op->op_flags & OPf_REF) { + if (PL_op->op_flags & OPf_REF) { EXTEND(SP,1); tmpgv = cGVOP->op_gv; do_fstat: @@ -926,7 +926,7 @@ my_lstat(ARGSproto) { djSP; SV *sv; - if (op->op_flags & OPf_REF) { + if (PL_op->op_flags & OPf_REF) { EXTEND(SP,1); if (cGVOP->op_gv == PL_defgv) { if (PL_laststype != OP_LSTAT) |