factor out remaining fcntl F_SETFD calls

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index 7f822d1..eea1a79 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7668,14 +7668,11 @@ Perl_yylex(pTHX)
                if (!GvIO(gv))
                    GvIOp(gv) = newIO();
                IoIFP(GvIOp(gv)) = PL_rsfp;
                if (!GvIO(gv))
                    GvIOp(gv) = newIO();
                IoIFP(GvIOp(gv)) = PL_rsfp;

-#if defined(HAS_FCNTL) && defined(F_SETFD) && defined(FD_CLOEXEC)

                {
                    const int fd = PerlIO_fileno(PL_rsfp);
                {
                    const int fd = PerlIO_fileno(PL_rsfp);

-                    if (fd >= 3) {
-                        fcntl(fd,F_SETFD, FD_CLOEXEC);
-                    }
+                    if (fd >= 3)
+                       setfd_cloexec(fd);

                }
                }

-#endif

                /* Mark this internal pseudo-handle as clean */
                IoFLAGS(GvIOp(gv)) |= IOf_UNTAINT;
                if ((PerlIO*)PL_rsfp == PerlIO_stdin())
                /* Mark this internal pseudo-handle as clean */
                IoFLAGS(GvIOp(gv)) |= IOf_UNTAINT;
                if ((PerlIO*)PL_rsfp == PerlIO_stdin())