Re: [ID 20010105.002] close() on process filehandle leaves defunct process

Message-ID: <14934.6849.742435.23178@ix.netsoft.ro>

p4raw-id: //depot/perl@8340

1 files changed, 19 insertions, 1 deletions

diff --git a/t/io/pipe.t b/t/io/pipe.t
index 95cdd5587e..24c5d76cc6 100755
--- a/t/io/pipe.t
+++ b/t/io/pipe.t
@@ -11,7 +11,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..15\n";
+print "1..16\n";
 
 # External program 'tr' assumed.
 open(PIPE, "|-") || (exec 'tr', 'YX', 'ko');
@@ -185,3 +185,21 @@ if ($? != 42) {
 }
 print "ok 15\n";
 $? = 0;
+
+# check that child is reaped if the piped program can't be executed
+{
+  local $SIG{CHLD} = 'DEFAULT';
+  open NIL, '/no_such_process |';
+  close NIL;
+
+  my $child = 0;
+  eval {
+    local $SIG{ALRM} = sub { die; };
+    alarm 2;
+    $child = wait;
+    alarm 0;
+  };
+
+  print "not " if $child != -1;
+  print "ok 16\n";
+}