more example cleanups

briandfoy · Jun 17, 2023 · 224969f · 224969f
1 parent 53e8a8b
commit 224969f
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/t/bc/ipc-open3.t b/t/bc/ipc-open3.t
@@ -27,10 +27,12 @@ sub run_bc {
 	my $child_in = Symbol::gensym();
 	# https://github.com/perl/perl5/issues/14533
 	if ($^O eq 'MSWin32') {
-		use Win32API::File qw(:Func :HANDLE_FLAG_);
+		no strict 'subs';
+		require Win32API::File;
+		Win32API::File->import( qw(:Func :HANDLE_FLAG_) );
 		my $wh = FdGetOsFHandle(fileno $child_in);
 		SetHandleInformation($wh, HANDLE_FLAG_INHERIT, 0);
-		die "Can't turn off HANDLE_FLAG_INHERIT: $@";
+		die "Can't turn off HANDLE_FLAG_INHERIT: $@";
 		}
 
 	my $pid = IPC::Open3::open3(