Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory usw-pr-cvs1:/tmp/cvs-serv15255/lib/Net
Modified Files:
LDAP.pm
Log Message:
Fix arguemnts passed to IO::Socket::SSL by start_tls
Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- LDAP.pm 28 May 2002 09:34:50 -0000 1.33
+++ LDAP.pm 15 Jul 2002 23:07:17 -0000 1.34
@@ -22,7 +22,7 @@
LDAP_INAPPROPRIATE_AUTH
);
-$VERSION = "0.25_50";
+$VERSION = "0.25_04";
@ISA = qw(Net::LDAP::Extra);
$LDAP_VERSION = 2; # default LDAP protocol version
@@ -808,7 +808,7 @@
require Net::LDAPS;
$arg->{sslversion} = 'tlsv1' unless defined $arg->{sslversion};
IO::Socket::SSL::context_init( { Net::LDAPS::SSL_context_init_args($arg) } );
- IO::Socket::SSL::socketToSSL($sock)
+ IO::Socket::SSL::socketToSSL($sock, {Net::LDAPS::SSL_context_init_args($arg)})
? $mesg
: _error($ldap, $mesg, LDAP_OPERATIONS_ERROR, $@);
}
|
