Testsuite: better OpenBSD compatability for IPv6

[users/jgh/exim.git] / test / runtest

diff --git a/test/runtest b/test/runtest
index 0a4e7cf88bd19f1d089e2971f4d1b59005aca86e..1e8e9814cf9dfab8b71cac262cd0b098f97db45f 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -3335,7 +3335,7 @@ while (not ($parm_ipv4 and $parm_ipv6) and defined($_ = <IFCONFIG>))
     $parm_ipv4 = $1;
     }
 
-  if (not $parm_ipv6 and /^\s*inet6(?:\saddr)?:?\s?([abcdef\d:]+)(?:\/\d+)/i)
+  if (not $parm_ipv6 and /^\s*inet6(?:\saddr)?:?\s?([abcdef\d:]+)(?:%[^ \/]+)?(?:\/\d+)?/i)
     {
     next if $1 eq '::1' or $1 =~ /^fe80/i;
     $parm_ipv6 = $1;
@@ -3395,6 +3395,7 @@ else
 
 print "IPv4 address is $parm_ipv4\n";
 print "IPv6 address is $parm_ipv6\n";
+$parm_ipv6 =~ /^[^%\/]*/;
 
 # For munging test output, we need the reversed IP addresses.