diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-21 22:26:34 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-21 22:26:34 +0000 |
| commit | cd661bb69faf0e70cffcc62a2ca9539a1dd6a09d (patch) | |
| tree | ef6d6573f56c4755875a491f6c72255470473906 /ext | |
| parent | bd28dd3ca083953e5682058b02b9529902e14ca9 (diff) | |
| download | perl-cd661bb69faf0e70cffcc62a2ca9539a1dd6a09d.tar.gz | |
Mingw32 PERL_OBJECT tweaks
p4raw-id: //depot/perl@1615
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Fcntl/Fcntl.xs | 6 | ||||
| -rw-r--r-- | ext/IO/IO.xs | 7 | ||||
| -rw-r--r-- | ext/POSIX/POSIX.xs | 1 |
3 files changed, 14 insertions, 0 deletions
diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs index 18a175f1c6..5149444b68 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 afe7f7775b..a434cca78b 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 b86fbdce1a..59b688e7a2 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) |