forked from pool/perl-LWP-Protocol-https
32 lines
1.1 KiB
Diff
32 lines
1.1 KiB
Diff
![]() |
Index: LWP-Protocol-https-6.02/lib/LWP/Protocol/https.pm
|
||
|
===================================================================
|
||
|
--- LWP-Protocol-https-6.02.orig/lib/LWP/Protocol/https.pm
|
||
|
+++ LWP-Protocol-https-6.02/lib/LWP/Protocol/https.pm
|
||
|
@@ -21,25 +21,7 @@ sub _extra_sock_opts
|
||
|
}
|
||
|
if ($ssl_opts{SSL_verify_mode}) {
|
||
|
unless (exists $ssl_opts{SSL_ca_file} || exists $ssl_opts{SSL_ca_path}) {
|
||
|
- eval {
|
||
|
- require Mozilla::CA;
|
||
|
- };
|
||
|
- if ($@) {
|
||
|
- if ($@ =! /^Can't locate Mozilla\/CA\.pm/) {
|
||
|
- $@ = <<'EOT';
|
||
|
-Can't verify SSL peers without knowning which Certificate Authorities to trust
|
||
|
-
|
||
|
-This problem can be fixed by either setting the PERL_LWP_SSL_CA_FILE
|
||
|
-envirionment variable or by installing the Mozilla::CA module.
|
||
|
-
|
||
|
-To disable verification of SSL peers set the PERL_LWP_SSL_VERIFY_HOSTNAME
|
||
|
-envirionment variable to 0. If you do this you can't be sure that you
|
||
|
-communicate with the expected peer.
|
||
|
-EOT
|
||
|
- }
|
||
|
- die $@;
|
||
|
- }
|
||
|
- $ssl_opts{SSL_ca_file} = Mozilla::CA::SSL_ca_file();
|
||
|
+ $ssl_opts{SSL_ca_path} = '/etc/ssl/certs';
|
||
|
}
|
||
|
}
|
||
|
$self->{ssl_opts} = \%ssl_opts;
|