From c43f8b937804a25598432d2d19d7f04146b29bc2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 12 Aug 2003 10:37:55 +0000 Subject: [PATCH] More microperlish faking in case no fcntl F_SETFD for pipes. p4raw-id: //depot/perl@20644 --- util.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/util.c b/util.c index 9a43d67..ea0c43e 100644 --- a/util.c +++ b/util.c @@ -1819,6 +1819,8 @@ Perl_my_popen_list(pTHX_ char *mode, int n, SV **args) #if defined(HAS_FCNTL) && defined(F_SETFD) /* Close error pipe automatically if exec works */ fcntl(pp[1], F_SETFD, FD_CLOEXEC); +#else + PerlLIO_close(pp[1]); /* Do as best as we can: pretend success. */ #endif } /* Now dup our end of _the_ pipe to right position */ @@ -1958,6 +1960,8 @@ Perl_my_popen(pTHX_ char *cmd, char *mode) PerlLIO_close(pp[0]); #if defined(HAS_FCNTL) && defined(F_SETFD) fcntl(pp[1], F_SETFD, FD_CLOEXEC); +#else + PerlLIO_close(pp[1]); /* Do as best as we can: pretend success. */ #endif } if (p[THIS] != (*mode == 'r')) { -- 2.7.4