From: Chris R. <chr...@us...> - 2002-05-17 13:49:52
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory usw-pr-cvs1:/tmp/cvs-serv16129 Modified Files: LDAP.pm Log Message: Removed workaround for old IO::Socket::SSL versions Index: LDAP.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- LDAP.pm 18 Feb 2002 16:51:42 -0000 1.30 +++ LDAP.pm 17 May 2002 13:49:48 -0000 1.31 @@ -807,7 +807,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) and tie *{$sock}, 'IO::Socket::SSL', $sock) + IO::Socket::SSL::socketToSSL($sock) ? $mesg : _error($ldap, $mesg, LDAP_OPERATIONS_ERROR, $@); } |