diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2015-11-10 10:59:24 +0000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-11-12 10:59:50 +1100 |
| commit | 48d0e2b20bba278a1927e100c7d907bff0ed360b (patch) | |
| tree | b6b462654376ba700679dab6fc43dbafdd812ea7 /ext | |
| parent | 0403a1ad8ff01aaac2d09a986ea6bb5210472459 (diff) | |
| download | perl-48d0e2b20bba278a1927e100c7d907bff0ed360b.tar.gz | |
Include the error message on IPC::Open3 exec() failure
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IPC-Open3/lib/IPC/Open3.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm index 273f205480..e5924a30a6 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.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; |