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 (file)
--- 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 (file)
--- 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 (file)
--- 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)