diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-10-19 05:11:43 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-07 13:14:21 +0000 |
| commit | 479b2847c3fbb8fe8ee4a5811514a771839458c4 (patch) | |
| tree | 1b121891f2a3952e7d8f453012d6df744222554a /doio.c | |
| parent | ccb2c380d5450f468e8b3ff18499f19757b950a6 (diff) | |
| download | perl-479b2847c3fbb8fe8ee4a5811514a771839458c4.tar.gz | |
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
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |