X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FIPC%2FOpen3.pm;h=220b9454638604a77d13e80531ac027b4fef6a1f;hb=b20801968f657f183ff09a100890be83a7f1337c;hp=f934e893fb1b7b8c245d914c3b560afba0561e77;hpb=4d3af52d85ceb40bfea0be8d4bab3c95a3323437;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/IPC/Open3.pm b/lib/IPC/Open3.pm
index f934e89..220b945 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