[perl.git] branch blead, updated. v5.13.5-209-g45a1ce9

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/45a1ce9706434aec3cacb228e2bb4bafeed9e5ed?hp=dfa4c01391ec1a67cfb0dc8a74a065632a21242e>

- Log -----------------------------------------------------------------
commit 45a1ce9706434aec3cacb228e2bb4bafeed9e5ed
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Mon Sep 27 16:48:57 2010 -0700

    Fix IPC::Open3’s fd.t to work on Windows
-----------------------------------------------------------------------

Summary of changes:
 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 d716060..14dbe72 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";
+}

--
Perl5 Master Repository