1 files changed, 0 insertions, 5 deletions
diff --git a/toke.c b/toke.c
index eea1a79cc3..1519d419c9 100644
--- a/toke.c
+++ b/toke.c
@@ -7668,11 +7668,6 @@ Perl_yylex(pTHX)
 		if (!GvIO(gv))
 		    GvIOp(gv) = newIO();
 		IoIFP(GvIOp(gv)) = PL_rsfp;
-		{
-		    const int fd = PerlIO_fileno(PL_rsfp);
-                    if (fd >= 3)
-			setfd_cloexec(fd);
-		}
 		/* Mark this internal pseudo-handle as clean */
 		IoFLAGS(GvIOp(gv)) |= IOf_UNTAINT;
 		if ((PerlIO*)PL_rsfp == PerlIO_stdin())