Include the error message on IPC::Open3 exec() failure
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Tue, 10 Nov 2015 10:59:24 +0000 (10:59 +0000)
committerTony Cook <tony@develop-help.com>
Wed, 11 Nov 2015 23:59:50 +0000 (10:59 +1100)
ext/IPC-Open3/lib/IPC/Open3.pm

index 273f205..e5924a3 100644 (file)
@@ -9,7 +9,7 @@ require Exporter;
 use Carp;
 use Symbol qw(gensym qualify);
 
-$VERSION       = '1.19';
+$VERSION       = '1.20';
 @ISA           = qw(Exporter);
 @EXPORT                = qw(open3);
 
@@ -280,7 +280,7 @@ sub _open3 {
                return 1 if ($_[0] eq '-');
                exec @_ or do {
                    local($")=(" ");
-                   croak "$Me: exec of @_ failed";
+                   croak "$Me: exec of @_ failed: $!";
                };
            } and do {
                 close $stat_w;