diff options
Diffstat (limited to 'ext/IPC-Open3')
| -rw-r--r-- | ext/IPC-Open3/t/fd.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/IPC-Open3/t/fd.t b/ext/IPC-Open3/t/fd.t index 00685762c9..ecb677d5c2 100644 --- a/ext/IPC-Open3/t/fd.t +++ b/ext/IPC-Open3/t/fd.t @@ -16,9 +16,8 @@ plan 2; { my $stderr = runperl( switches => ['-MIPC::Open3', '-w'], - prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE}, q _-e0_)', + prog => 'open STDIN, q _Makefile_ or die $!; open3(q _<&1_, my $out, undef, $ENV{PERLEXE}, q _-e0_)', stderr => 1, - stdin => '', ); { local $::TODO = "Bogus warning in IPC::Open3::spawn_with_handles" |