From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 13 Jul 1998 00:12:19 +0000 (-0400)
Subject: t/io/pipe.t - completely broken?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=062dddbedd47004b4da907ece10c5d091721b5b1;p=p5sagit%2Fp5-mst-13.2.git

t/io/pipe.t - completely broken?

	Message-Id: <199807130412.AAA27128@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1467
---

diff --git a/t/io/pipe.t b/t/io/pipe.t
index 63614f5..ba7a9b0 100755
--- a/t/io/pipe.t
+++ b/t/io/pipe.t
@@ -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";
 }