From 479b2847c3fbb8fe8ee4a5811514a771839458c4 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 19 Oct 2002 05:11:43 -0700 Subject: Re: Is this true that Perl 5.8 uses :crlf as default DISCIPLINE on so ckets? Message-Id: <200210191911.g9JJBhK02618@smtp3.ActiveState.com> p4raw-id: //depot/perl@18120 --- doio.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'doio.c') diff --git a/doio.c b/doio.c index 2da66c620b..9cfcc4e1c5 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; -- cgit v1.2.1