[LDAPsh-cvs] ldapsh ldapsh,1.32,1.33

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv23478

Modified Files:
	ldapsh 
Log Message:
* Improved error handling in _bindneeded.


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** ldapsh	11 Dec 2003 12:41:07 -0000	1.32
--- ldapsh	11 Dec 2003 12:41:51 -0000	1.33
***************
*** 404,408 ****
  sub _bindneeded {
  	if ($Globals->{LDAPCONN}{VALUE}) {
! 		unless($Globals->{LDAPCONN}{VALUE}{net_ldap_socket}->connected()) {
  			print STDERR "\nConnection lost. Trying to reconnect.\n";
  			undef $Globals->{_EFFECTIVECONNPARAMS}{VALUE}{BINDDN};
--- 404,408 ----
  sub _bindneeded {
  	if ($Globals->{LDAPCONN}{VALUE}) {
! 		unless($Globals->{LDAPCONN}{VALUE}->socket() && $Globals->{LDAPCONN}{VALUE}->socket()->connected()) {
  			print STDERR "\nConnection lost. Trying to reconnect.\n";
  			undef $Globals->{_EFFECTIVECONNPARAMS}{VALUE}{BINDDN};