Test system - parse ipv6 addresses with no :: in them.
authorTodd Lyons <tlyons@exim.org>
Mon, 4 Jun 2012 13:05:29 +0000 (06:05 -0700)
committerTodd Lyons <tlyons@exim.org>
Mon, 4 Jun 2012 13:05:29 +0000 (06:05 -0700)
test/runtest

index aa242d5..b88e71e 100755 (executable)
@@ -3104,6 +3104,8 @@ if ($have_ipv6 && $parm_ipv6 ne "::1")
     $exp_v6 = $1 . ':0' x (8-length($exp_v6)) . ':' . $2;
   } elsif ( $parm_ipv6 =~ /^::(.+[^:])$/ ) {
     $exp_v6 = '0:' x (9-length($exp_v6)) . $1;
+  } else {
+    $exp_v6 = $parm_ipv6;
   }
   my(@components) = split /:/, $exp_v6;
   my(@nibbles) = reverse (split /\s*/, shift @components);