Change 16330: pipe() IO structures were not fully initialized

[Gurusamy Sarathy]

Change 16330 by gsar@onru on 2002/05/02 06:34:26

        pipe() IO structures were not fully initialized

Affected files ...

.... //depot/maint-5.6/perl/doio.c#19 edit
.... //depot/maint-5.6/perl/pp_sys.c#30 edit

Differences ...

==== //depot/maint-5.6/perl/doio.c#19 (text) ====
Index: perl/doio.c
--- perl/doio.c.~1~     Thu May  2 00:45:06 2002
+++ perl/doio.c Thu May  2 00:45:06 2002
@@ -785,6 +785,7 @@
        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;

==== //depot/maint-5.6/perl/pp_sys.c#30 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c.~1~   Thu May  2 00:45:06 2002
+++ perl/pp_sys.c       Thu May  2 00:45:06 2002
@@ -591,6 +591,7 @@
 
     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;
End of Patch.