On Tue, 12 Aug 2003 05:00:05 PDT, Jarkko Hietaniemi wrote:
>Change 20644 by [EMAIL PROTECTED] on 2003/08/12 10:37:55
>
> More microperlish faking in case no fcntl F_SETFD for pipes.
Same problem here as with change#20643. --GSAR
>Affected files ...
>
>... //depot/perl/util.c#398 edit
>
>Differences ...
>
>==== //depot/perl/util.c#398 (text) ====
>Index: perl/util.c
>--- perl/util.c#397~20170~ Fri Jul 18 01:03:02 2003
>+++ perl/util.c Tue Aug 12 03:37:55 2003
>@@ -1819,6 +1819,8 @@
> #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 @@
> 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')) {
>End of Patch.
