Como forço o LWP a usar Crypt :: SSLeay para solicitações HTTPS?
Meu sintoma é que não posso usar um proxy com solicitações HTTPS com LWP. Este parece ser um problema comum, e as dicas no Google e atéaqu todos sugerem uma solução alternativa para definir oHTTPS_PROXY
variável de ambiente para uso por Crypt :: SSLeay.
Meu problema específico parece ser que o LWP :: Protocol :: https está carregando IO :: Socket :: SSL em vez de Crypt :: SSLeay.Como posso forçar o uso do Crypt :: SSLeay?
Meu código:
#!/usr/bin/perl
use strict;
use warnings;
$ENV{HTTPS_PROXY} = 'http://10.0.3.1:3128';
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new('GET','https://www.meritrustcu.org/');
my $res = $ua->request($req);
print "$_\n" for grep { $_ =~ /SSL/ } keys %INC;
E sua saída, mostrando que Crypt :: SSLeay não está sendo usado:
Net/SSLeay.pm
IO/Socket/SSL.pm
/usr/lib/perl5/auto/Net/SSLeay/autosplit.ix
/usr/lib/perl5/auto/Net/SSLeay/set_proxy.al
/usr/lib/perl5/auto/Net/SSLeay/randomize.al
Simplesmente adicionando um @ explíciuse Crypt::SSLeay
para o meu script provou ser ineficaz. Ele carrega o módulo, mas continua a carregar IO :: Socket :: SSL e usá-lo para as solicitações HTTPS.