X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/612a06fa463fb0eb4533e07c8f5179ca7d1d26f3..f33b2f585292653a3c50ea39cbdab734c3473fcb:/win32/win32.c

diff --git a/win32/win32.c b/win32/win32.c
index a78c598..879b613 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -1124,6 +1124,7 @@ chown(const char *path, uid_t owner, gid_t group)
  * XXX this needs strengthening  (for PerlIO)
  *   -- BKS, 11-11-200
 */
+#if !defined(__MINGW64_VERSION_MAJOR) || __MINGW64_VERSION_MAJOR < 4
 int mkstemp(const char *path)
 {
     dTHX;
@@ -1144,6 +1145,7 @@ retry:
 	goto retry;
     return fd;
 }
+#endif
 
 static long
 find_pid(pTHX_ int pid)