In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5942644739c2d477d25e89b4a40ced7cfb0ee4e9?hp=f6fbd0bdd5d69084392f9e773798f4bc39353235>
- Log ----------------------------------------------------------------- commit 5942644739c2d477d25e89b4a40ced7cfb0ee4e9 Author: Jarkko Hietaniemi <[email protected]> Date: Sun Mar 27 10:50:51 2016 -0400 ODBM_File version bump M ext/ODBM_File/ODBM_File.pm commit 77bbf816cb5fd9cd539e3e70dd0a57384245e920 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Mar 24 07:12:51 2016 -0400 [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 M ext/ODBM_File/ODBM_File.xs ----------------------------------------------------------------------- Summary of changes: ext/ODBM_File/ODBM_File.pm | 2 +- ext/ODBM_File/ODBM_File.xs | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ext/ODBM_File/ODBM_File.pm b/ext/ODBM_File/ODBM_File.pm index dd92fd3..3184025 100644 --- a/ext/ODBM_File/ODBM_File.pm +++ b/ext/ODBM_File/ODBM_File.pm @@ -7,7 +7,7 @@ require Tie::Hash; require XSLoader; our @ISA = qw(Tie::Hash); -our $VERSION = "1.13"; +our $VERSION = "1.14"; XSLoader::load(); diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs index bf5def3..eaa1923 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> -- Perl5 Master Repository
