perl-LWP-Protocol-https:fix

This commit is contained in:
alihanozturk
2016-06-10 18:28:58 +03:00
parent b1db25e328
commit 642bda8092
2 changed files with 45 additions and 39 deletions
@@ -1,39 +1,39 @@
+--- Makefile.PL.old 2016-01-04 11:31:52.349484123 +0800 --- Makefile.PL.old 2016-01-04 11:31:52.349484123 +0800
++++ Makefile.PL 2016-01-04 11:32:07.432992090 +0800 +++ Makefile.PL 2016-01-04 11:32:07.432992090 +0800
+@@ -15,7 +15,6 @@ @@ -15,7 +15,6 @@
+ 'LWP::UserAgent' => '6.06', 'LWP::UserAgent' => '6.06',
+ 'Net::HTTPS' => 6, 'Net::HTTPS' => 6,
+ 'IO::Socket::SSL' => "1.54", 'IO::Socket::SSL' => "1.54",
+- 'Mozilla::CA' => "20110101", - 'Mozilla::CA' => "20110101",
+ }, },
+ META_MERGE => { META_MERGE => {
+ resources => { resources => {
+--- lib/LWP/Protocol/https.pm.old 2016-01-04 11:33:19.003810886 +0800 --- 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 +++ lib/LWP/Protocol/https.pm 2016-01-04 11:34:42.358079461 +0800
+@@ -25,25 +25,7 @@ @@ -25,25 +25,7 @@
+ } }
+ if ($ssl_opts{SSL_verify_mode}) { if ($ssl_opts{SSL_verify_mode}) {
+ unless (exists $ssl_opts{SSL_ca_file} || exists $ssl_opts{SSL_ca_path}) { unless (exists $ssl_opts{SSL_ca_file} || exists $ssl_opts{SSL_ca_path}) {
+- eval { - eval {
+- require Mozilla::CA; - require Mozilla::CA;
+- }; - };
+- if ($@) { - if ($@) {
+- if ($@ =! /^Can't locate Mozilla\/CA\.pm/) { - if ($@ =! /^Can't locate Mozilla\/CA\.pm/) {
+- $@ = <<'EOT'; - $@ = <<'EOT';
+-Can't verify SSL peers without knowing which Certificate Authorities to trust -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 -This problem can be fixed by either setting the PERL_LWP_SSL_CA_FILE
+-environment variable or by installing the Mozilla::CA module. -environment variable or by installing the Mozilla::CA module.
+- -
+-To disable verification of SSL peers set the PERL_LWP_SSL_VERIFY_HOSTNAME -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 -environment variable to 0. If you do this you can't be sure that you
+-communicate with the expected peer. -communicate with the expected peer.
+-EOT -EOT
+- } - }
+- die $@; - die $@;
+- } - }
+- $ssl_opts{SSL_ca_file} = Mozilla::CA::SSL_ca_file(); - $ssl_opts{SSL_ca_file} = Mozilla::CA::SSL_ca_file();
++ $ssl_opts{SSL_ca_file} = '/etc/ssl/certs/ca-certificates.crt'; + $ssl_opts{SSL_ca_file} = '/etc/ssl/certs/ca-certificates.crt';
+ } }
+ } }
+ $self->{ssl_opts} = \%ssl_opts; $self->{ssl_opts} = \%ssl_opts;
@@ -18,6 +18,7 @@
<Dependency>perl</Dependency> <Dependency>perl</Dependency>
<Dependency>perl-IO-Socket-SSL</Dependency> <Dependency>perl-IO-Socket-SSL</Dependency>
<Dependency>perl-NET-HTTP</Dependency> <Dependency>perl-NET-HTTP</Dependency>
<Dependency>perl-libwww</Dependency>
<Dependency>perl-Mozilla-CA</Dependency> <Dependency>perl-Mozilla-CA</Dependency>
</BuildDependencies> </BuildDependencies>
<Patches> <Patches>
@@ -29,6 +30,11 @@
<Name>perl-LWP-Protocol-https</Name> <Name>perl-LWP-Protocol-https</Name>
<RuntimeDependencies> <RuntimeDependencies>
<Dependency>perl</Dependency> <Dependency>perl</Dependency>
<Dependency>ca-certificates</Dependency>
<Dependency>perl-libwww</Dependency>
<Dependency>perl-IO-Socket-SSL</Dependency>
<Dependency>perl-NET-HTTP</Dependency>
<Dependency>perl-Mozilla-CA</Dependency>
</RuntimeDependencies> </RuntimeDependencies>
<Files> <Files>
<Path fileType="library">/usr/lib</Path> <Path fileType="library">/usr/lib</Path>