This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Mingw32 PERL_OBJECT tweaks
authorNick Ing-Simmons <nik@tiuk.ti.com>
Tue, 21 Jul 1998 22:26:34 +0000 (22:26 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Tue, 21 Jul 1998 22:26:34 +0000 (22:26 +0000)
p4raw-id: //depot/perl@1615

ext/Fcntl/Fcntl.xs
ext/IO/IO.xs
ext/POSIX/POSIX.xs

index 18a175f..5149444 100644 (file)
@@ -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
index afe7f77..a434cca 100644 (file)
@@ -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
index b86fbdc..59b688e 100644 (file)
@@ -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)