X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=9cfcc4e1c5c8a3fc8aa795823d501b5e860d6cde;hb=6e6ca6c3d8f9eaf6e2364f1fef07b3f472f0a846;hp=2da66c620bdc77e95170526e8635f79279074483;hpb=24a7a40d02cc0ea4a7e6fc143f53dd60b2d0d047;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index 2da66c6..9cfcc4e 100644
--- a/doio.c
+++ b/doio.c
@@ -923,8 +923,8 @@ Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv)
 
     if (PerlProc_pipe(fd) < 0)
 	goto badexit;
-    IoIFP(rstio) = PerlIO_fdopen(fd[0], "r");
-    IoOFP(wstio) = PerlIO_fdopen(fd[1], "w");
+    IoIFP(rstio) = PerlIO_fdopen(fd[0], "r"PIPESOCK_MODE);
+    IoOFP(wstio) = PerlIO_fdopen(fd[1], "w"PIPESOCK_MODE);
     IoOFP(rstio) = IoIFP(rstio);
     IoIFP(wstio) = IoOFP(wstio);
     IoTYPE(rstio) = IoTYPE_RDONLY;