diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-03-24 07:12:51 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-03-27 10:51:56 -0400 |
| commit | 77bbf816cb5fd9cd539e3e70dd0a57384245e920 (patch) | |
| tree | 1c7a4426a5b0613ccc07ce44c5224e62f944a874 | |
| parent | f6fbd0bdd5d69084392f9e773798f4bc39353235 (diff) | |
| download | perl-77bbf816cb5fd9cd539e3e70dd0a57384245e920.tar.gz | |
[perl #127751] error building ODBM_File on Windows, perl 5.23.9
No POSIX open in Win32, broken by ed6087adbd9c90b59cf3f08af7c23a947c00bf69
Use the PerlLIO_open3 as suggested by Tony Cook, use the same trick as POSIX.xs
| -rw-r--r-- | ext/ODBM_File/ODBM_File.xs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs index bf5def38f8..eaa1923c36 100644 --- a/ext/ODBM_File/ODBM_File.xs +++ b/ext/ODBM_File/ODBM_File.xs @@ -3,6 +3,10 @@ #include "EXTERN.h" #include "perl.h" #include "XSUB.h" +#if defined(PERL_IMPLICIT_SYS) +# undef open +# define open PerlLIO_open3 +#endif #ifdef I_DBM # include <dbm.h> |