diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-05-13 18:12:30 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-05-18 15:37:27 -0700 |
commit | f6f8630dd43b32f9bab4022c85e58074ec370c1a (patch) | |
tree | b55c4abb7be269eae924a1c450a61200a7803297 /ext/IPC-Open3 | |
parent | bd9f0ebfcceb3f4cd93610fee8a3982e77d70277 (diff) | |
download | perl-f6f8630dd43b32f9bab4022c85e58074ec370c1a.tar.gz |
Restore a croak I deleted by mistake
Diffstat (limited to 'ext/IPC-Open3')
-rw-r--r-- | ext/IPC-Open3/lib/IPC/Open3.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm index 7015d27a78..cdd47c31ec 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.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 { |