diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 22:16:26 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 22:16:26 +0000 |
| commit | 911d147d409bfec728014bf1ae544556d9e97f28 (patch) | |
| tree | efda149324a9c261c72a41cffe88cb9c01627ae6 /pp_sys.c | |
| parent | b28d0864af067162e2d26cc66b6b8acb6d3cddc8 (diff) | |
| download | perl-911d147d409bfec728014bf1ae544556d9e97f28.tar.gz | |
PL_ stuff passes non-threaded on Mingw32
(Why did it compile without this fix?)
p4raw-id: //depot/ansiperl@1540
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1296,7 +1296,7 @@ PP(pp_sysread) RETURN; } #else - if (op->op_type == OP_RECV) + if (PL_op->op_type == OP_RECV) DIE(no_sock_func, "recv"); #endif if (offset < 0) { @@ -2876,7 +2876,7 @@ char *filename; } else { /* some mkdirs return no failure indication */ anum = (PerlLIO_stat(save_filename, &statbuf) >= 0); - if (op->op_type == OP_RMDIR) + if (PL_op->op_type == OP_RMDIR) anum = !anum; if (anum) SETERRNO(0,0); @@ -3220,7 +3220,7 @@ PP(pp_system) } PerlProc__exit(-1); #else /* ! FORK or VMS or OS/2 */ - if (op->op_flags & OPf_STACKED) { + if (PL_op->op_flags & OPf_STACKED) { SV *really = *++MARK; value = (I32)do_aspawn(really, (void **)MARK, (void **)SP); } |