e803662396
ok, thanks OBS-URL: https://build.opensuse.org/request/show/65366 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-libwww-perl?expand=0&rev=28
32 lines
1.1 KiB
Diff
32 lines
1.1 KiB
Diff
Index: libwww-perl-6.01/lib/LWP/Protocol/https.pm
|
|
===================================================================
|
|
--- libwww-perl-6.01.orig/lib/LWP/Protocol/https.pm
|
|
+++ libwww-perl-6.01/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;
|