Socket::getaddrinfo no longer works with IPv6

[Yaribz]

use Socket qw'getaddrinfo AF_INET6';

my ($err)=getaddrinfo('www.google.com', 443, {family => AF_INET6});
die "getaddrinfo error: $err\n" if($err);
print "OK.\n";

Result with Strawberry Perl 5.38.2.2 64bit:

OK.

Result with Strawberry Perl 5.40.0.1 64bit:

getaddrinfo error: ai_family not supported

[shawnlaffan]

Confirmed.

The Socket module is core so this might be a Perl bug, perhaps related to UCRT.