diff options
| author | Tony Cook <tony@develop-help.com> | 2010-10-01 18:58:37 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2010-10-01 19:18:22 +1000 |
| commit | 1f563db471aa8a0064982ecfd3d60911d0eaa3ff (patch) | |
| tree | 80de947df8c40fb5f2aeef813b59f71036c9960d | |
| parent | be1cc4519b5ba35ec8c5b8a2b4a62c72cff05a2e (diff) | |
| download | perl-1f563db471aa8a0064982ecfd3d60911d0eaa3ff.tar.gz | |
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.
| -rw-r--r-- | 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 14dbe725fd..a11c72a80f 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 => '', ); |