diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-02-04 22:02:33 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-02-06 09:39:16 +0000 |
| commit | e2b4e8e0cf6d562da5b854c27d3237f159eb7b48 (patch) | |
| tree | 44afe9cd478d92e42c67ebef6a3574cf5a9a11bd | |
| parent | a12c50118877afd878319fe7ee5bbfaedac7afce (diff) | |
| download | perl-e2b4e8e0cf6d562da5b854c27d3237f159eb7b48.tar.gz | |
In IPC::Open3's fd.t, open STDIN explicitly in the test program.
This removes the use of the stdin argument to runperl(), which will make the
transition to Test::PerlRun easier, as it doesn't provide 'stdin'. This was
the only test using 'stdin', and it can easily be changed not to need it.
| -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" |