Testsuite: perl version oddity
authorJeremy Harris <jgh146exb@wizmail.org>
Mon, 27 May 2024 11:31:47 +0000 (12:31 +0100)
committerJeremy Harris <jgh146exb@wizmail.org>
Mon, 27 May 2024 11:31:47 +0000 (12:31 +0100)
Broken-by: 235ef8b38301
test/runtest

index 3fe7fe0440116f7e257162691eb63e89fb84e69f..b959107c122e2aae7e25120a7996d6d5cba06fd7 100755 (executable)
@@ -120,7 +120,7 @@ my $parm_hostname;
 my $re_ipv4 = qr/\d{1,3}(?:\.\d{1,3}){3}/;
 my $re_6g = qr/[[:xdigit:]]{1,4}/;
 my $re_6s = qr/${re_6g}:/;
-my $re_ipv6 = qr/${re_6s}{,7}${re_6g}(?:::${re_6s}{,5}${re_6g})?/;
+my $re_ipv6 = qr/${re_6s}{0,7}${re_6g}(?:::${re_6s}{0,5}${re_6g})?/;
 my $re_ip = qr/(?:${re_ipv4}|${re_ipv6})/;
 
 ###############################################################################