Change 16329: fix handle leak in my_popen() if the fork() fails

[Gurusamy Sarathy]

Change 16329 by gsar@onru on 2002/05/02 06:32:46

        fix handle leak in my_popen() if the fork() fails

Affected files ...

.... //depot/maint-5.6/perl/util.c#39 edit

Differences ...

==== //depot/maint-5.6/perl/util.c#39 (text) ====
Index: perl/util.c
--- perl/util.c.~1~     Thu May  2 00:45:06 2002
+++ perl/util.c Thu May  2 00:45:06 2002
@@ -2339,6 +2339,7 @@
     while ((pid = (doexec?vfork():fork())) < 0) {
        if (errno != EAGAIN) {
            PerlLIO_close(p[This]);
+           PerlLIO_close(p[that]);
            if (did_pipes) {
                PerlLIO_close(pp[0]);
                PerlLIO_close(pp[1]);
End of Patch.