diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-05-28 08:13:00 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-28 16:50:54 +0000 |
| commit | d6a255e6be67358d1e8a71b939edbfc895ee4fa6 (patch) | |
| tree | 9ca6b9b4ba46c2b2a496cda3e0b83c68e1fc98d6 /t/io | |
| parent | 4435c47799d17bebb53fa0fbe063f550be95a17c (diff) | |
| download | perl-d6a255e6be67358d1e8a71b939edbfc895ee4fa6.tar.gz | |
Cosmetic OS/2-related patches
To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199905281613.MAA02048@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@3497
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/pipe.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/pipe.t b/t/io/pipe.t index 1c72440478..37949c4546 100755 --- a/t/io/pipe.t +++ b/t/io/pipe.t @@ -61,6 +61,7 @@ if ($^O eq 'vmesa') { exec 'echo', 'not ok 6'; } } +wait; # Collect from $pid pipe(READER,WRITER) || die "Can't open pipe"; close READER; @@ -134,7 +135,6 @@ 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 }; |