From: Nick Ing-Simmons <nik@tiuk.ti.com>
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);
     }