¿Cómo habilito la compatibilidad con IPv6 en LWP?

Question

El siguiente código ...

my $user_agent = LWP::UserAgent->new; 
my $request = HTTP::Request->new(GET => $url); 
my $response = $user_agent->request($request); 
if ($response->is_success) { 
    print "OK\n"; 
} else { 
    die($response->status_line); 
} 

.. .. fallará con

500 Can't connect to <hostname> (Bad hostname '<hostname>') 

.. si el nombre de host en $ url es una única dirección IPv6 (es decir: presencia de un AAAA registro, pero no registro A).

Mis preguntas son:

• Cómo puedo habilitar el soporte IPv6 en LWP?
• ¿Cómo se configuran los ajustes de LWP para "preferir IPv4-IPv6-over-" (vs. AAAAA)/"prefieren IPv6 sobre IPv4" (vs. AAAAA)?

Answer 1

Parece que solo necesita usar Net::INET6Glue::INET_is_INET6. Para citar su ejemplo:

use Net::INET6Glue::INET_is_INET6; 
use LWP::Simple; 
print get('http://[::1]:80'); 
print get('http://ipv6.google.com'); 

Answer 2

Creo que tendrá que cambiar el módulo para usar el módulo de red IPV6. Por defecto no tiene esto habilitado: http://eintr.blogspot.com/2009/03/bad-state-of-ipv6-in-perl.html. No creo que exista algo tan simple como "prefer-ipv6"

Answer 3

Debian Wheezy (Perl 5.14) nice

trabajo:

use LWP::Simple; 
print get('http://ip6-localhost:80'); 

No funciona (1)

use LWP::Simple; 
print get('http://[::1]:80'); 

No de trabajo (2) [Volver: Mala nombre de host]

use LWP::Simple; 
$ua = new LWP::UserAgent(); 
my $req = new HTTP::Request("GET", "http://[::1]/"); 
my $res = $ua->request($req); 

no trabajar (3) [Volver: Connection refused]

use Net::INET6Glue::INET_is_INET6; 
use LWP::Simple; 
$ua = new LWP::UserAgent(); 
my $req = new HTTP::Request("GET", "http://[::1]/"); 
my $res = $ua->request($req); 

Soo, si no es necesario Dirección IPv6 en solicitud HTTP, está bien. :(