Attempt to fix 'attempt to copy freed scalar' error

This commit is contained in:
Jamie Cameron
2021-03-14 18:14:30 -07:00
parent 35108b2ba4
commit f8ae8c81fb

View File

@@ -3350,12 +3350,14 @@ else {
# Perform IPv6 DNS lookup
my @ai = getaddrinfo($host, undef, AF_INET6(), SOCK_STREAM);
while(@ai) {
(undef, undef, undef, $inaddr, undef, @ai) = @ai;
my @newia;
(undef, undef, undef, $inaddr, undef, @newai) = @ai;
if ($inaddr) {
my $addr;
(undef, $addr) = unpack_sockaddr_in6($inaddr);
push(@rv, inet_ntop(AF_INET6(), $addr));
}
@ai = @newai;
}
}
return wantarray ? @rv : $rv[0];