Assign vars explicitly

This commit is contained in:
Ilia Rostovtsev
2021-03-16 16:44:10 +03:00
parent b337c192c8
commit 1b9334d000

View File

@@ -3351,7 +3351,8 @@ else {
eval {
my @ai = getaddrinfo($host, undef, AF_INET6(), SOCK_STREAM);
while(@ai) {
my (undef, undef, undef, $inaddr, undef, @newai) = @ai;
my ($inaddr, @newai);
(undef, undef, undef, $inaddr, undef, @newai) = @ai;
if ($inaddr) {
my $addr;
(undef, $addr) = unpack_sockaddr_in6($inaddr);