From: Nick Ing-Simmons Date: Sat, 18 Jul 1998 22:16:26 +0000 (+0000) Subject: PL_ stuff passes non-threaded on Mingw32 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=911d147d409bfec728014bf1ae544556d9e97f28;p=p5sagit%2Fp5-mst-13.2.git PL_ stuff passes non-threaded on Mingw32 (Why did it compile without this fix?) p4raw-id: //depot/ansiperl@1540 --- diff --git a/pp_sys.c b/pp_sys.c index 0d8f539..e482e4c 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -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); }