This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #134221) MSVC doesn't define O_ACCMODE
authorTony Cook <tony@develop-help.com>
Fri, 19 Jul 2019 00:08:30 +0000 (10:08 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 19 Jul 2019 00:08:30 +0000 (10:08 +1000)
win32/win32.h

index 6db4dc0..6311115 100644 (file)
@@ -735,5 +735,9 @@ DllExport void *win32_signal_context(void);
 #define Win_GetModuleFileName GetModuleFileName
 #define Win_CreateSemaphore   CreateSemaphore
 
+#if defined(PERL_CORE) && !defined(O_ACCMODE)
+#  define O_ACCMODE (O_RDWR | O_WRONLY | O_RDONLY)
+#endif
+
 #endif /* _INC_WIN32_PERL5 */