Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix usage of Socket::GetAddrInfo for new version 0.22.

avenj on irc.perl.org #poe pointed out that Socket::GetAddrInfo 0.22
changed public behavior and began throwing the following error.  This
change compensates for that and requires version 0.22 or later.

:newapi tag is no longer supported by Socket::GetAddrInfo; just 'use'
it directly
  • Loading branch information...
commit 4a415e5228e7c41da67027e7821ad606a418363f 1 parent 202dea1
@rcaputo authored
View
2  dist.ini
@@ -6,7 +6,7 @@ copyright_holder = Rocco Caputo
[Prereqs]
POE = 1.311
Scalar::Util = 1.23
-Socket::GetAddrInfo = 0.19
+Socket::GetAddrInfo = 0.22
Storable = 2.18
Test::More = 0.96
Time::HiRes = 1.9711
View
2  lib/POE/Component/Resolver.pm
@@ -7,7 +7,7 @@ use POE qw(Wheel::Run Filter::Reference);
use Carp qw(croak carp);
use Time::HiRes qw(time);
use Socket qw(unpack_sockaddr_in AF_INET AF_INET6);
-use Socket::GetAddrInfo qw(:newapi getnameinfo NI_NUMERICHOST NI_NUMERICSERV);
+use Socket::GetAddrInfo qw(getnameinfo NI_NUMERICHOST NI_NUMERICSERV);
use POE::Component::Resolver::Sidecar;
View
2  lib/POE/Component/Resolver/Sidecar.pm
@@ -5,7 +5,7 @@ use strict;
use Storable qw(nfreeze thaw);
-use Socket::GetAddrInfo qw(:newapi getaddrinfo);
+use Socket::GetAddrInfo qw(getaddrinfo);
sub main {
my $buffer = "";
View
2  t/01-basic.t
@@ -17,7 +17,7 @@ my $r4 = POE::Component::Resolver->new(
# Try to detect whether we can resolve IPv6 addresses at all.
-use Socket::GetAddrInfo qw(:newapi getaddrinfo);
+use Socket::GetAddrInfo qw(getaddrinfo);
my $has_ipv6 = do {
my ($error, @addresses) = getaddrinfo(
"ipv6.test-ipv6.com", "www", { family => AF_INET6 }

0 comments on commit 4a415e5

Please sign in to comment.
Something went wrong with that request. Please try again.