diff options
| author | brian d foy <brian.d.foy@gmail.com> | 2008-09-21 10:23:47 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-09-23 13:37:54 +0000 |
| commit | b20801968f657f183ff09a100890be83a7f1337c (patch) | |
| tree | adf23e6a4c1f8ad2399c4ae84e5f8f59ad18d960 | |
| parent | 4d3af52d85ceb40bfea0be8d4bab3c95a3323437 (diff) | |
| download | perl-b20801968f657f183ff09a100890be83a7f1337c.tar.gz | |
Show using waitpid in IPC::Open[23] SYNOPSIS
Message-ID: <210920081523471499%brian.d.foy@gmail.com>
p4raw-id: //depot/perl@34408
| -rw-r--r-- | lib/IPC/Open2.pm | 3 | ||||
| -rw-r--r-- | lib/IPC/Open3.pm | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lib/IPC/Open2.pm b/lib/IPC/Open2.pm index ecd1e7f9de..65a5d8b20e 100644 --- a/lib/IPC/Open2.pm +++ b/lib/IPC/Open2.pm @@ -28,6 +28,9 @@ IPC::Open2, open2 - open a process for both reading and writing # or without using the shell $pid = open2($chld_out, $chld_in, 'some', 'cmd', 'and', 'args'); + waitpid( $pid, 0 ); + my $child_exit_status = $? >> 8; + =head1 DESCRIPTION The open2() function runs the given $cmd and connects $chld_out for diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm index f934e893fb..220b945463 100644 --- a/lib/IPC/Open3.pm +++ b/lib/IPC/Open3.pm @@ -26,6 +26,9 @@ IPC::Open3, open3 - open a process for reading, writing, and error handling $pid = open3($wtr, $rdr, $err, 'some cmd and args', 'optarg', ...); + waitpid( $pid, 0 ); + my $child_exit_status = $? >> 8; + =head1 DESCRIPTION Extremely similar to open2(), open3() spawns the given $cmd and |