In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/194e5090d23ea35a046eac37a5d4af6db452bb54?hp=131d45a96c910d0fe46597ab156a35837879bf9c>
- Log ----------------------------------------------------------------- commit 194e5090d23ea35a046eac37a5d4af6db452bb54 Author: Jarkko Hietaniemi <[email protected]> Date: Wed Aug 26 19:57:08 2015 -0400 One more FD_CLOEXEC case, missed in 131d45a9. ----------------------------------------------------------------------- Summary of changes: doio.c | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/doio.c b/doio.c index 1b1e951..d038986 100644 --- a/doio.c +++ b/doio.c @@ -771,12 +771,10 @@ S_openn_cleanup(pTHX_ GV *gv, IO *io, PerlIO *fp, char *mode, const char *oname, PerlIO_clearerr(fp); fd = PerlIO_fileno(fp); } -#if defined(HAS_FCNTL) && defined(F_SETFD) - if (fd >= 0) { - if (fcntl(fd, F_SETFD, fd > PL_maxsysfd) < 0) { - PerlLIO_close(fd); - goto say_false; - } +#if defined(HAS_FCNTL) && defined(F_SETFD) && defined(FD_CLOEXEC) + if (fd > PL_maxsysfd && fcntl(fd, F_SETFD, FD_CLOEXEC) < 0) { + PerlLIO_close(fd); + goto say_false; } #endif IoIFP(io) = fp; -- Perl5 Master Repository
