diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-12 20:12:19 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-14 03:31:39 +0000 |
| commit | 062dddbedd47004b4da907ece10c5d091721b5b1 (patch) | |
| tree | b966bc07def7a4226b84ecba0a8064997145fea5 /t/io/pipe.t | |
| parent | 1a159553554948091ed2e3b1cf5953ca46e63bc5 (diff) | |
| download | perl-062dddbedd47004b4da907ece10c5d091721b5b1.tar.gz | |
t/io/pipe.t - completely broken?
Message-Id: <199807130412.AAA27128@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1467
Diffstat (limited to 't/io/pipe.t')
| -rwxr-xr-x | t/io/pipe.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/io/pipe.t b/t/io/pipe.t index 63614f5f4f..ba7a9b093b 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"; } |