Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv5719/lib/Net
Modified Files:
LDAP.pm
Log Message:
pass undef instead of '' for initial SASL credentials
Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- LDAP.pm 9 May 2003 16:56:21 -0000 1.50
+++ LDAP.pm 19 May 2003 15:08:05 -0000 1.51
@@ -340,12 +340,12 @@
my $initial = $sasl_conn->client_start;
- return _error($ldap, $mesg, LDAP_LOCAL_ERROR, "$@") unless
- defined($initial);
+ return _error($ldap, $mesg, LDAP_LOCAL_ERROR, "$@")
+ unless defined($initial);
$passwd = {
mechanism => $sasl_conn->mechanism,
- credentials => $initial
+ credentials => (length($initial) ? $initial : undef)
};
# Save data, we will need it later
|
