From f8ae8c81fbc1cf8f988cc9788086849f31de05fe Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 14 Mar 2021 18:14:30 -0700
Subject: [PATCH] Attempt to fix 'attempt to copy freed scalar' error

---
 web-lib-funcs.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl
index 1fb08fca4..004d64150 100755
--- a/web-lib-funcs.pl
+++ b/web-lib-funcs.pl
@@ -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];