diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-27 16:48:57 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-27 16:50:45 -0700 |
| commit | 45a1ce9706434aec3cacb228e2bb4bafeed9e5ed (patch) | |
| tree | 426e476db3838d6fc960970ce93ec8815858edaa /ext/IPC-Open3 | |
| parent | dfa4c01391ec1a67cfb0dc8a74a065632a21242e (diff) | |
| download | perl-45a1ce9706434aec3cacb228e2bb4bafeed9e5ed.tar.gz | |
Fix IPC::Open3’s fd.t to work on Windows
Diffstat (limited to 'ext/IPC-Open3')
| -rw-r--r-- | ext/IPC-Open3/t/fd.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ext/IPC-Open3/t/fd.t b/ext/IPC-Open3/t/fd.t index d7160604f8..14dbe725fd 100644 --- a/ext/IPC-Open3/t/fd.t +++ b/ext/IPC-Open3/t/fd.t @@ -13,9 +13,13 @@ use warnings; plan 1; # [perl #76474] -ok !runperl( +{ + my $stderr = runperl( switches => ['-MIPC::Open3', '-w'], prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE})', stderr => 1, - ), + stdin => '', + ); + unlike $stderr, qr/open3/, "dup STDIN in a child process by using its file descriptor"; +} |