[asperl] added AS patch#3

[p5sagit/p5-mst-13.2.git] / win32 / runperl.c

diff --git a/win32/runperl.c b/win32/runperl.c
index 76f9ea0..5cacb83 100644 (file)
--- a/win32/runperl.c
+++ b/win32/runperl.c
@@ -4,7 +4,15 @@
 #include "EXTERN.h"
 #include "perl.h"
 
+#define NO_XSLOCKS
 #include "XSUB.H"
+#undef errno
+#if defined(_MT)
+_CRTIMP int * __cdecl _errno(void);
+#define errno (*_errno())
+#else
+_CRTIMP extern int errno;
+#endif
 
 #include <ipdir.h>
 #include <ipenv.h>