In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/1f563db471aa8a0064982ecfd3d60911d0eaa3ff?hp=be1cc4519b5ba35ec8c5b8a2b4a62c72cff05a2e>
- Log -----------------------------------------------------------------
commit 1f563db471aa8a0064982ecfd3d60911d0eaa3ff
Author: Tony Cook <t...@develop-help.com>
Date: Fri Oct 1 18:58:37 2010 +1000
rt 76474: Avoid the child perl reading from stdout
FD 1 is stdout, and the "<&1" redirect in the test sets the child to
read from its parent's stdout, on Linux (and presumably OS X) doesn't
let you read from stdout, but FreeBSD does, without the -e perl will
try to read its program from stdin, so provide one.
-----------------------------------------------------------------------
Summary of changes:
ext/IPC-Open3/t/fd.t | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/ext/IPC-Open3/t/fd.t b/ext/IPC-Open3/t/fd.t
index 14dbe72..a11c72a 100644
--- a/ext/IPC-Open3/t/fd.t
+++ b/ext/IPC-Open3/t/fd.t
@@ -16,7 +16,7 @@ plan 1;
{
my $stderr = runperl(
switches => ['-MIPC::Open3', '-w'],
- prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE})',
+ prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE}, q_-e0_)',
stderr => 1,
stdin => '',
);
--
Perl5 Master Repository
