2011-07-22 9 views

Respuesta

23
use IO::Socket::SSL qw(); 
use WWW::Mechanize qw(); 
my $mech = WWW::Mechanize->new(ssl_opts => { 
    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, 
    verify_hostname => 0, # this key is likely going to be removed in future LWP >6.04 
}); 

Con IO :: Socket :: SSL antes de 1.79, ver PERL_LWP_SSL_VERIFY_HOSTNAME.

+0

Esto me puso en el camino correcto para hacer frente a Mail: : El remitente no puede verificar el certificado. Terminé hackear Sender.pm para llamar a IO :: Socket :: SSL-> start_SSL con SSL_verify_mode => 0 –

4
my $mech = WWW::Mechanize->new('ssl_opts' => { 'verify_hostname' => 0 }); 
Cuestiones relacionadas