Change 34408 by [EMAIL PROTECTED] on 2008/09/23 13:37:54
Subject: [PATCH] Show using waitpid in IPC::Open[23] SYNOPSIS
From: brian d foy <[EMAIL PROTECTED]>
Date: Sun, 21 Sep 2008 15:23:47 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/IPC/Open2.pm#11 edit
... //depot/perl/lib/IPC/Open3.pm#23 edit
Differences ...
==== //depot/perl/lib/IPC/Open2.pm#11 (text) ====
Index: perl/lib/IPC/Open2.pm
--- perl/lib/IPC/Open2.pm#10~25320~ 2005-08-22 08:41:15.000000000 -0700
+++ perl/lib/IPC/Open2.pm 2008-09-23 06:37:54.000000000 -0700
@@ -28,6 +28,9 @@
# 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
==== //depot/perl/lib/IPC/Open3.pm#23 (text) ====
Index: perl/lib/IPC/Open3.pm
--- perl/lib/IPC/Open3.pm#22~34365~ 2008-09-15 10:01:08.000000000 -0700
+++ perl/lib/IPC/Open3.pm 2008-09-23 06:37:54.000000000 -0700
@@ -26,6 +26,9 @@
$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
End of Patch.
