This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATCH 4/5] Adjust unit tests to cope with new sockaddr_in6 functions in Socket ...
authorPaul Evans <leonerd@leonerd.org.uk>
Thu, 25 Nov 2010 20:09:15 +0000 (20:09 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 25 Nov 2010 20:09:15 +0000 (20:09 +0000)
Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
ext/B/t/concise-xs.t

index 68abad1..9b42325 100644 (file)
@@ -213,12 +213,13 @@ my $testpkgs = {
                             register_domain recv protocol peername
                             new listen import getsockopt croak
                             connected connect configure confess close
-                            carp bind atmark accept
+                            carp bind atmark accept sockaddr_in6
                             /, $] > 5.009 ? ('blocking') : () ],
 
                    XS => [qw/ unpack_sockaddr_un unpack_sockaddr_in
                           sockatmark sockaddr_family pack_sockaddr_un
                           pack_sockaddr_in inet_ntoa inet_aton
+                          unpack_sockaddr_in6 pack_sockaddr_in6
                           /],
             # skip inet_ntop and inet_pton as they're not exported by default
                },