Restore a croak I deleted by mistake

diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm
index 7015d27..cdd47c3 100644 (file)
--- 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.09;
+$VERSION       = '1.10';
 @ISA           = qw(Exporter);
 @EXPORT                = qw(open3);
 
@@ -180,6 +180,7 @@ sub xopen {
 
 sub xclose {
     $_[0] =~ /\A=?(\d+)\z/ ? eval { require POSIX; POSIX::close($1); } : close $_[0]
+       or croak "$Me: close($_[0]) failed: $!";
 }
 
 sub fh_is_fd {