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.

diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm
index 7015d27..e238528 100644 (file)
--- a/ext/IPC-Open3/lib/IPC/Open3.pm
+++ b/ext/IPC-Open3/lib/IPC/Open3.pm
@@ -284,11 +284,14 @@ sub _open3 {
                } else {
                    xopen \*STDERR, ">&STDOUT" if fileno(STDERR) != fileno(STDOUT);
                }
-               return 0 if ($cmd[0] eq '-');
+               return 1 if ($cmd[0] eq '-');
                exec @cmd or do {
                    local($")=(" ");
                    croak "$Me: exec of @cmd failed";
                };
+           } and do {
+                close $stat_w;
+               return 0;
            };
 
            my $bang = 0+$!;