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
|
