diff options
-rw-r--r-- | ext/IPC-Open3/t/fd.t | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/IPC-Open3/t/fd.t b/ext/IPC-Open3/t/fd.t index 354ebd1aa9..4e2742714d 100644 --- a/ext/IPC-Open3/t/fd.t +++ b/ext/IPC-Open3/t/fd.t @@ -1,10 +1,6 @@ #!./perl BEGIN { - if (!PerlIO::Layer->find('perlio') || $ENV{PERLIO} eq 'stdio') { - print "1..0 # Skip: not perlio\n"; - exit 0; - } if ($^O eq 'VMS') { print "1..0 # Skip: needs porting, perhaps imitating Win32 mechanisms\n"; exit 0; @@ -20,7 +16,7 @@ plan 3; { my $stderr = runperl( switches => ['-MIPC::Open3', '-w'], - prog => 'open STDIN, q _Makefile_ or die $!; open3(q _<&1_, my $out, undef, $ENV{PERLEXE}, q _-e0_)', + prog => 'open STDIN, q _Makefile_ or die $!; open3(q _<&0_, my $out, undef, $ENV{PERLEXE}, q _-e0_)', stderr => 1, ); |