This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
handle existing mkstemp() in mingw-w64-v4
[perl5.git]
/
win32
/
win32.c
diff --git
a/win32/win32.c
b/win32/win32.c
index
a78c598
..
879b613
100644
(file)
--- 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)