Show using waitpid in IPC::Open[23] SYNOPSIS

Message-ID: <210920081523471499%brian.d.foy@gmail.com>

p4raw-id: //depot/perl@34408

diff --git a/lib/IPC/Open2.pm b/lib/IPC/Open2.pm
index ecd1e7f..65a5d8b 100644 (file)
--- 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 f934e89..220b945 100644 (file)
--- 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