bug in LDAP 0.63

[THOMAS GUEVIN]

Here is the diff of the change from 0.62 to 0.63.  There is an extra “defined” in the code.

 

--- /usr/local/share/perl/5.14.2/Net/LDAP.pm       2014-06-11 12:13:09.780074484 +0000

+++ /usr/local/share/perl/5.14.2/Net/LDAP.pm       2014-06-11 12:13:09.780074484 +0000

@@ -35,7 +35,7 @@

                           ? 'IO::Socket::INET6'

                           : '';

 

-our $VERSION   = '0.62';

+our $VERSION   = '0.63';

our @ISA       = qw(Tie::StdHash Net::LDAP::Extra);

our $LDAP_VERSION      = 3;      # default LDAP protocol version

 

@@ -251,7 +251,8 @@

   }

 

   (

-    SSL_cipher_list     => defined $arg->{ciphers} ? $arg->{ciphers} : 'ALL',

+    defined $arg->{ciphers} ?

+        ( SSL_cipher_list     => defined $arg->{ciphers}) : (),

     SSL_ca_file         => exists  $arg->{cafile}  ? $arg->{cafile}  : '',

     SSL_ca_path         => exists  $arg->{capath}  ? $arg->{capath}  : '',

     SSL_key_file        => $clientcert ? $clientkey : undef,

 

 

Please address in 0.64 if possible.

 

Thanks,

 

-Tom G.

[Peter Marschall]

Hi,

On Monday, 16. June 2014 22:26:57 THOMAS GUEVIN wrote:
> Here is the diff of the change from 0.62 to 0.63. There is an extra
> "defined" in the code.

> [...]

> @@ -251,7 +251,8 @@
> }
>
> (
> - SSL_cipher_list => defined $arg->{ciphers} ? $arg->{ciphers} :
> 'ALL', + defined $arg->{ciphers} ?
> + ( SSL_cipher_list => defined $arg->{ciphers}) : (),
> SSL_ca_file => exists $arg->{cafile} ? $arg->{cafile} : '',
> SSL_ca_path => exists $arg->{capath} ? $arg->{capath} : '',
> SSL_key_file => $clientcert ? $clientkey : undef,
>
>
> Please address in 0.64 if possible.

Patched in private repo.
Will be included in 0.64.

Thanks

--
Peter Marschall
pe...@adpm.de