1 files changed, 1 insertions, 0 deletions
diff --git a/pp_sys.c b/pp_sys.c
index d4da064135..a7e89a70c3 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -608,6 +608,7 @@ PP(pp_pipe_op)
 
     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;