Change 20644 by [EMAIL PROTECTED] on 2003/08/12 10:37:55
More microperlish faking in case no fcntl F_SETFD for pipes.
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.
