This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/io/pipe.t - completely broken?
authorIlya Zakharevich <ilya@math.berkeley.edu>
Mon, 13 Jul 1998 00:12:19 +0000 (20:12 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Jul 1998 03:31:39 +0000 (03:31 +0000)
Message-Id: <199807130412.AAA27128@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1467

t/io/pipe.t

index 63614f5..ba7a9b0 100755 (executable)
@@ -116,6 +116,7 @@ else {
 }
 
 # check that status for the correct process is collected
+wait;                          # Collect from $pid
 my $zombie = fork or exit 37;
 my $pipe = open *FH, "sleep 2;exit 13|" or die "Open: $!\n";
 $SIG{ALRM} = sub { return };
@@ -130,5 +131,5 @@ my $wait = wait;
 if ($? == 37*256 && $wait == $zombie && ! $!) {
     print "ok 12\n";
 } else {
-    print "not ok 12\n# pid=$wait   \$?=$?   \$!=", $!+0, ":$!\n";
+    print "not ok 12\n# pid=$wait first=$pid pipe=$pipe zombie=$zombie me=$$ \$?=$?   \$!=", $!+0, ":$!\n";
 }