rt 76474: Avoid the child perl reading from stdout
authorTony Cook <tony@develop-help.com>
Fri, 1 Oct 2010 08:58:37 +0000 (18:58 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 1 Oct 2010 09:18:22 +0000 (19:18 +1000)
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.

ext/IPC-Open3/t/fd.t

index 14dbe72..a11c72a 100644 (file)
@@ -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 => '',
   );