Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Specify that we want to use the 'ldap' scheme to verify certificates.

  • Loading branch information...
commit 041d540d96b8e3f79ab0822689b3e565b222de14 1 parent 0a55dd1
Kevan Carstensen isnotajoke authored gbarr committed
Showing with 13 additions and 12 deletions.
  1. +1 −1  Makefile.PL
  2. +12 −11 lib/Net/LDAP.pm
2  Makefile.PL
View
@@ -39,7 +39,7 @@ features(
],
'LDAPS' => [
-default => 0,
- 'IO::Socket::SSL' => 0.93,
+ 'IO::Socket::SSL' => 1.26,
],
'Read/Write DSML files' => [
-default => 0,
23 lib/Net/LDAP.pm
View
@@ -219,17 +219,18 @@ sub _SSL_context_init_args {
}
(
- SSL_cipher_list => defined $arg->{'ciphers'} ? $arg->{'ciphers'} : 'ALL',
- SSL_ca_file => exists $arg->{'cafile'} ? $arg->{'cafile'} : '',
- SSL_ca_path => exists $arg->{'capath'} ? $arg->{'capath'} : '',
- SSL_key_file => $clientcert ? $clientkey : undef,
- SSL_passwd_cb => $passwdcb,
- SSL_check_crl => $arg->{'checkcrl'} ? 1 : 0,
- SSL_use_cert => $clientcert ? 1 : 0,
- SSL_cert_file => $clientcert,
- SSL_verify_mode => $verify,
- SSL_version => defined $arg->{'sslversion'} ? $arg->{'sslversion'} :
- 'sslv2/3',
+ SSL_cipher_list => defined $arg->{'ciphers'} ? $arg->{'ciphers'} : 'ALL',
+ SSL_ca_file => exists $arg->{'cafile'} ? $arg->{'cafile'} : '',
+ SSL_ca_path => exists $arg->{'capath'} ? $arg->{'capath'} : '',
+ SSL_key_file => $clientcert ? $clientkey : undef,
+ SSL_passwd_cb => $passwdcb,
+ SSL_check_crl => $arg->{'checkcrl'} ? 1 : 0,
+ SSL_use_cert => $clientcert ? 1 : 0,
+ SSL_cert_file => $clientcert,
+ SSL_verify_mode => $verify,
+ SSL_version => defined $arg->{'sslversion'} ? $arg->{'sslversion'} :
+ 'sslv2/3',
+ SSL_verifycn_scheme => "ldap",
);
}
Please sign in to comment.
Something went wrong with that request. Please try again.