Accepting request 65614 from devel:languages:perl

Accepted submit request 65614 from user coolo

OBS-URL: https://build.opensuse.org/request/show/65614
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-libwww-perl?expand=0&rev=28
This commit is contained in:
Sascha Peilicke 2011-03-31 11:37:19 +00:00 committed by Git OBS Bridge
commit 123b27648d
3 changed files with 38 additions and 0 deletions

View File

@ -0,0 +1,31 @@
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;

View File

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Mon Mar 28 14:43:32 CEST 2011 - lnussel@suse.de
- use system CAs in /etc/ssl/certs
-------------------------------------------------------------------
Thu Mar 17 11:01:06 UTC 2011 - chris@computersalat.de

View File

@ -29,6 +29,7 @@ Url: http://search.cpan.org/dist/libwww-perl/
Source: %{cpan_name}-%{version}.tar.bz2
# PATCH-FIX-OPENSUSE -- disable one perl requires that would be created automatically and we're unable to provide
Patch0: disable-ghttp.diff
Patch1: libwww-perl-6.01-systemca.diff
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
@ -99,6 +100,7 @@ help you implement simple HTTP servers.
%prep
%setup -q -n %{cpan_name}-%{version}
%patch0 -p1
%patch1 -p1
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor