From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Tue, 21 Jul 1998 22:26:34 +0000 (+0000)
Subject: Mingw32 PERL_OBJECT tweaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd661bb69faf0e70cffcc62a2ca9539a1dd6a09d;p=p5sagit%2Fp5-mst-13.2.git

Mingw32 PERL_OBJECT tweaks

p4raw-id: //depot/perl@1615
---

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index 18a175f..5149444 100644
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -5,7 +5,13 @@
 #ifdef VMS
 #  include <file.h>
 #else
+#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
+#define _NO_OLDNAMES
+#endif 
 #  include <fcntl.h>
+#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
+#undef _NO_OLDNAMES
+#endif 
 #endif
 
 /* This comment is a kludge to get metaconfig to see the symbols
diff --git a/ext/IO/IO.xs b/ext/IO/IO.xs
index afe7f77..a434cca 100644
--- a/ext/IO/IO.xs
+++ b/ext/IO/IO.xs
@@ -7,7 +7,14 @@
 #  include <unistd.h>
 #endif
 #ifdef I_FCNTL
+#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
+#define _NO_OLDNAMES
+#endif 
 #  include <fcntl.h>
+#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
+#undef _NO_OLDNAMES
+#endif 
+
 #endif
 
 #ifdef PerlIO
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index b86fbdc..59b688e 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -8,6 +8,7 @@
 #ifdef PERL_OBJECT	/* XXX _very_ temporary hacks */
 #  undef signal
 #  undef open
+#  undef setmode
 #  define open PerlLIO_open3
 #  undef TAINT_PROPER
 #  define TAINT_PROPER(a)