Ertuğrul Erata
40 lines
1.3 KiB
Diff
40 lines
1.3 KiB
Diff
--- Makefile.PL.old 2016-01-04 11:31:52.349484123 +0800
|
|
+++ Makefile.PL 2016-01-04 11:32:07.432992090 +0800
|
|
@@ -15,7 +15,6 @@
|
|
'LWP::UserAgent' => '6.06',
|
|
'Net::HTTPS' => 6,
|
|
'IO::Socket::SSL' => "1.54",
|
|
- 'Mozilla::CA' => "20110101",
|
|
},
|
|
META_MERGE => {
|
|
resources => {
|
|
--- lib/LWP/Protocol/https.pm.old 2016-01-04 11:33:19.003810886 +0800
|
|
+++ lib/LWP/Protocol/https.pm 2016-01-04 11:34:42.358079461 +0800
|
|
@@ -25,25 +25,7 @@
|
|
}
|
|
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 knowing which Certificate Authorities to trust
|
|
-
|
|
-This problem can be fixed by either setting the PERL_LWP_SSL_CA_FILE
|
|
-environment variable or by installing the Mozilla::CA module.
|
|
-
|
|
-To disable verification of SSL peers set the PERL_LWP_SSL_VERIFY_HOSTNAME
|
|
-environment 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_file} = '/etc/ssl/certs/ca-certificates.crt';
|
|
}
|
|
}
|
|
$self->{ssl_opts} = \%ssl_opts;
|