This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix IPC::Open3’s fd.t to work on Windows
authorFather Chrysostomos <sprout@cpan.org>
Mon, 27 Sep 2010 23:48:57 +0000 (16:48 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 27 Sep 2010 23:50:45 +0000 (16:50 -0700)
ext/IPC-Open3/t/fd.t

index d716060..14dbe72 100644 (file)
@@ -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";
+}