[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.57,1.58

[Chris R. <chr...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv5703

Modified Files:
	LDAP.pm 
Log Message:
Handle socket failure better in _sendmesg

Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- LDAP.pm	17 Oct 2003 21:39:51 -0000	1.57
+++ LDAP.pm	31 Dec 2003 21:49:43 -0000	1.58
@@ -721,7 +721,8 @@
       if $debug & 4;
   }
 
-  my $socket = $ldap->socket or return LDAP_SERVER_DOWN;
+  my $socket = $ldap->socket
+      or return _error($ldap, $mesg, LDAP_SERVER_DOWN, "$!");
 
   syswrite($socket, $mesg->pdu, length($mesg->pdu))
     or return _error($ldap, $mesg, LDAP_LOCAL_ERROR,"$!");