From 376ba56ff24c4494ecef24575ca66853f21e08b2 Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Sat, 17 Jun 2023 07:38:02 -0400
Subject: [PATCH] Try a windows fix for IPC::Open3

---
 t/bc/ipc-open3.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/bc/ipc-open3.t b/t/bc/ipc-open3.t
index e465fcf9..f51d9751 100644
--- a/t/bc/ipc-open3.t
+++ b/t/bc/ipc-open3.t
@@ -24,8 +24,17 @@ sub run_bc {
 	# https://www.perlmonks.org/?node_id=419919
 	my( $input ) = @_;
 
+	my $child_in = Symbol::gensym();
+	# https://github.com/perl/perl5/issues/14533
+	if ($^O eq 'MSWin32') {
+		use Win32API​::File qw(​:Func :HANDLE_FLAG_);
+		my $wh = FdGetOsFHandle(fileno $child_in);
+		SetHandleInformation($wh, HANDLE_FLAG_INHERIT, 0);
+		die "Can't turn off HANDLE_FLAG_INHERIT​: $@"​;
+		}
+
 	my $pid = IPC::Open3::open3(
-		my $child_in = Symbol::gensym(),
+		$child_in,
 		my $child_out,
 		my $child_err = Symbol::gensym(),
 		$^X, $program, '-'