[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.33,1.34

[Graham B. <gb...@us...>]

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, $@);
 }