X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Fpipe.t;h=ba7a9b093b66793df6aa06762cd603aff6c16290;hb=062dddbedd47004b4da907ece10c5d091721b5b1;hp=63614f5f4fac7f82ad5d8a282ce3319ead341789;hpb=1a159553554948091ed2e3b1cf5953ca46e63bc5;p=p5sagit%2Fp5-mst-13.2.git

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";
 }