[exim-cvs] Test system - parse ipv6 addresses with no :: in …

Commit:     d37842ebe0e150119c4d54b7520d09f35c8c571d
Parent:     1f26e59e475e787dc76477e2028d7eac7daa9d54
Author:     Todd Lyons <tlyons@???>
AuthorDate: Mon Jun 4 06:05:29 2012 -0700
Committer:  Todd Lyons <tlyons@???>
CommitDate: Mon Jun 4 06:05:29 2012 -0700

    Test system - parse ipv6 addresses with no :: in them.
---
 test/runtest |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/test/runtest b/test/runtest
index aa242d5..b88e71e 100755
--- a/test/runtest
+++ b/test/runtest
@@ -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);