[perl #76474]: IPC::Open3 doesn't handle file descriptors correctly

[perl5.git] / ext / IPC-Open3 / lib / IPC / Open3.pm

diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm
index 50ae61e..879469e 100644 (file)
--- a/ext/IPC-Open3/lib/IPC/Open3.pm
+++ b/ext/IPC-Open3/lib/IPC/Open3.pm
@@ -181,7 +181,7 @@ sub xopen {
 }
 
 sub xclose {
-    close $_[0] or croak "$Me: close($_[0]) failed: $!";
+    $_[0] =~ /\A=?(\d+)\z/ ? eval { require POSIX; POSIX::close($1); } : close $_[0]
 }
 
 sub fh_is_fd {