Blame SOURCES/perl-ldap-0.56-LDAP.pm-set-SSL_cipher_list-to-correct-value.patch

befaba
From ce1c5f1d136c637544a434323ddb5afc27b29449 Mon Sep 17 00:00:00 2001
befaba
From: Peter Marschall <peter@adpm.de>
befaba
Date: Tue, 17 Jun 2014 19:32:28 +0200
befaba
Subject: [PATCH 2/2] LDAP.pm: set SSL_cipher_list to correct value
befaba
MIME-Version: 1.0
befaba
Content-Type: text/plain; charset=UTF-8
befaba
Content-Transfer-Encoding: 8bit
befaba
befaba
Fix commit 11fe2a9 which contains a superfluous defined and thus
befaba
set SSL_cipher_list to true instead of the value of the ciphers arg.
befaba
befaba
Thanks to THOMAS GUEVIN <THOMAS.GUEVIN@adtran.com> for reporting the bug.
befaba
befaba
Signed-off-by: Petr Písař <ppisar@redhat.com>
befaba
---
befaba
 lib/Net/LDAP.pm | 2 +-
befaba
 1 file changed, 1 insertion(+), 1 deletion(-)
befaba
befaba
diff --git a/lib/Net/LDAP.pm b/lib/Net/LDAP.pm
befaba
index 99d227a..2f873ad 100644
befaba
--- a/lib/Net/LDAP.pm
befaba
+++ b/lib/Net/LDAP.pm
befaba
@@ -244,7 +244,7 @@ sub _SSL_context_init_args {
befaba
 
befaba
   (
befaba
     defined $arg->{ciphers} ?
befaba
-        ( SSL_cipher_list     => defined $arg->{ciphers}) : (),
befaba
+      ( SSL_cipher_list => $arg->{ciphers} ) : (),
befaba
     SSL_ca_file         => exists  $arg->{cafile}  ? $arg->{cafile}  : '',
befaba
     SSL_ca_path         => exists  $arg->{capath}  ? $arg->{capath}  : '',
befaba
     SSL_key_file        => $clientcert ? $clientkey : undef,
befaba
-- 
befaba
1.9.3
befaba