[exim-cvs] Testsuite: perl version oddity

Top Page
Delete this message
Reply to this message
Author: Exim Git Commits Mailing List
Date:  
To: exim-cvs
Subject: [exim-cvs] Testsuite: perl version oddity
Gitweb: https://git.exim.org/exim.git/commitdiff/b66eb2387fe955529001a76daab428d6dfb50c89
Commit:     b66eb2387fe955529001a76daab428d6dfb50c89
Parent:     14245f74fe76da5260b8fe3a9e7b6f99cc240077
Author:     Jeremy Harris <jgh146exb@???>
AuthorDate: Mon May 27 12:31:47 2024 +0100
Committer:  Jeremy Harris <jgh146exb@???>
CommitDate: Mon May 27 12:31:47 2024 +0100


    Testsuite: perl version oddity


    Broken-by: 235ef8b38301
---
 test/runtest | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)


diff --git a/test/runtest b/test/runtest
index 3fe7fe044..b959107c1 100755
--- a/test/runtest
+++ b/test/runtest
@@ -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})/;

###############################################################################

--
## subscription configuration (requires account):
## https://lists.exim.org/mailman3/postorius/lists/exim-cvs.lists.exim.org/
## unsubscribe (doesn't require an account):
## exim-cvs-unsubscribe@???
## Exim details at http://www.exim.org/
## Please use the Wiki with this list - http://wiki.exim.org/