[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.44,1.45

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

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

Modified Files:
	LDAP.pm 
Log Message:
Check client_start return value

Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- LDAP.pm	6 May 2003 16:18:15 -0000	1.44
+++ LDAP.pm	6 May 2003 16:32:11 -0000	1.45
@@ -254,6 +254,9 @@
 
     my $initial = $sasl_conn->client_start;
 
+    return _error($ldap, $mesg, LDAP_LOCAL_ERROR, "$@") unless
+      defined($initial);
+
     $passwd = {
       mechanism   => $sasl_conn->mechanism,
       credentials => $initial