Permalink
Browse files

Make sure we're able to import getaddrinfo()

  • Loading branch information...
1 parent 7e13c8b commit 0679c8e034fe8ec3a07abfb78d735efbd3efc805 @hinrik hinrik committed Dec 7, 2011
Showing with 2 additions and 1 deletion.
  1. +1 −0 Changes
  2. +1 −1 t/02_behavior/04_ipv6.t
View
@@ -1,6 +1,7 @@
Revision history for Perl extension POE::Component::IRC.
{{$NEXT}}
+ - Prevent an IPv6 test failure
6.77 Fri Dec 2 03:55:14 GMT 2011
- Prevent a test failure in 06_online.t if the host is K-lined
View
@@ -26,7 +26,7 @@ BEGIN {
# Perl-5.14.0 will core getaddrinfo() in it's Socket.pm
eval { Socket->import('getaddrinfo') };
if ($@) {
- eval { require Socket::GetAddrInfo };
+ eval { require Socket::GetAddrInfo; Socket::GetAddrInfo->import(qw(:newapi getaddrinfo)) };
if ($@) {
plan skip_all => 'Socket::GetAddrInfo is needed for IPv6 tests';
}

0 comments on commit 0679c8e

Please sign in to comment.