[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.50,1.51

[Graham B. <gb...@us...>]

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