diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-09 16:40:39 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-09 16:40:39 +0000 |
| commit | b5ac89c3e91fc5e73ab09acd099240e5aaa213a5 (patch) | |
| tree | 8a6af29c877dca43df7acdd44a951e56df047d31 /doio.c | |
| parent | 2c646907d8be3abcfdbcb890fa5c8ca825c7ce91 (diff) | |
| download | perl-b5ac89c3e91fc5e73ab09acd099240e5aaa213a5.tar.gz | |
Integrate maint branch io (pipe) fixes. (changes#16329,16330,16331)
p4raw-link: @16331 on //depot/maint-5.6/perl: 821302ef08e28e13ed846e63b71b1a8e0bd6e09a
p4raw-link: @16330 on //depot/maint-5.6/perl: 32b5515015764ee3e189442094a83142675fbf9b
p4raw-link: @16329 on //depot/maint-5.6/perl: 5676c1b12073c1e0625a9800fba3bbcb4a2e99c8
p4raw-id: //depot/perl@16528
p4raw-integrated: from //depot/maint-5.6/perl@16527 'merge in' pp_sys.c
(@12026..)
p4raw-integrated: from //depot/maint-5.6/perl@16331 'merge in' util.c
(@16329..)
p4raw-integrated: from //depot/maint-5.6/perl@16330 'merge in' doio.c
(@14704..)
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -904,6 +904,7 @@ Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv) goto badexit; IoIFP(rstio) = PerlIO_fdopen(fd[0], "r"); IoOFP(wstio) = PerlIO_fdopen(fd[1], "w"); + IoOFP(rstio) = IoIFP(rstio); IoIFP(wstio) = IoOFP(wstio); IoTYPE(rstio) = IoTYPE_RDONLY; IoTYPE(wstio) = IoTYPE_WRONLY; |