[perl.git] branch blead, updated. v5.15.1-66-g15e86ab

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/15e86abf063edd54ddbaa668e527d496dbebfe70?hp=747627ec455e0765e07733ece1545aa3f728a00a>

- Log -----------------------------------------------------------------
commit 15e86abf063edd54ddbaa668e527d496dbebfe70
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Wed Jul 27 09:21:06 2011 -0700

    Increase $IPC::Open::VERSION to 1.12

M       ext/IPC-Open3/lib/IPC/Open3.pm

commit f8b0429f0b6cf645006ec2cf9fdaa2c4fc8f60d6
Author: Salvador Fandino <sfand...@yahoo.com>
Date:   Wed Jul 27 09:20:29 2011 -0700

    [perl #95748] IPC::Open3::open3(..., '-') broken
    
    IPC::Open3::open3($in, $out, $err, '-') is broken in 5.14.1
    
    Because the old "return 0" used to return to user code now is wrapped 
inside and eval block.
    
    This patch solves the problem.

M       ext/IPC-Open3/lib/IPC/Open3.pm
-----------------------------------------------------------------------

Summary of changes:
 ext/IPC-Open3/lib/IPC/Open3.pm |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm
index 8b9fd56..31c68af 100644
--- a/ext/IPC-Open3/lib/IPC/Open3.pm
+++ b/ext/IPC-Open3/lib/IPC/Open3.pm
@@ -9,7 +9,7 @@ require Exporter;
 use Carp;
 use Symbol qw(gensym qualify);
 
-$VERSION       = '1.11';
+$VERSION       = '1.12';
 @ISA           = qw(Exporter);
 @EXPORT                = qw(open3);
 
@@ -269,12 +269,15 @@ sub _open3 {
                            fileno $_->{open_as};
                    }
                }
-               return 0 if ($_[0] eq '-');
+               return 1 if ($_[0] eq '-');
                exec @_ or do {
                    local($")=(" ");
                    croak "$Me: exec of @_ failed";
                };
-           };
+           } and do {
+                close $stat_w;
+                return 0;
+            };
 
            my $bang = 0+$!;
            my $err = $@;

--
Perl5 Master Repository