[liblwp-protocol-https-perl] 02/03: Update 746579-fix-peer-certificate-verification.patch patch
Salvatore Bonaccorso
carnil at debian.org
Mon May 5 20:10:20 UTC 2014
This is an automated email from the git hooks/post-receive script.
carnil pushed a commit to branch master
in repository liblwp-protocol-https-perl.
commit 6a471895f4815b552d49c6eff1b435b9f26c0b81
Author: Salvatore Bonaccorso <carnil at debian.org>
Date: Mon May 5 22:07:43 2014 +0200
Update 746579-fix-peer-certificate-verification.patch patch
Git-Dch: Ignore
---
debian/patches/746579-fix-peer-certificate-verification.patch | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/debian/patches/746579-fix-peer-certificate-verification.patch b/debian/patches/746579-fix-peer-certificate-verification.patch
index 48b6fa1..d672a7d 100644
--- a/debian/patches/746579-fix-peer-certificate-verification.patch
+++ b/debian/patches/746579-fix-peer-certificate-verification.patch
@@ -10,12 +10,16 @@ Last-Update: 2014-05-04
--- a/lib/LWP/Protocol/https.pm
+++ b/lib/LWP/Protocol/https.pm
-@@ -21,7 +21,7 @@
+@@ -21,7 +21,11 @@
$ssl_opts{SSL_verifycn_scheme} = 'www';
}
else {
- $ssl_opts{SSL_verify_mode} = 0;
-+ $ssl_opts{SSL_verifycn_scheme} = 'none';
++ if ( $Net::HTTPS::SSL_SOCKET_CLASS eq 'Net::SSL' ) {
++ $ssl_opts{SSL_verifycn_scheme} = '';
++ } else {
++ $ssl_opts{SSL_verifycn_scheme} = 'none';
++ }
}
if ($ssl_opts{SSL_verify_mode}) {
unless (exists $ssl_opts{SSL_ca_file} || exists $ssl_opts{SSL_ca_path}) {
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/liblwp-protocol-https-perl.git
More information about the Pkg-perl-cvs-commits
mailing list