Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv3029/lib/Net/LDAP
Modified Files:
Bind.pm
Log Message:
Check result of client_step is defined or cause SASL auth to terminate
Index: Bind.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Bind.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Bind.pm 18 Feb 2002 16:51:42 -0000 1.3
+++ Bind.pm 6 May 2003 16:45:20 -0000 1.4
@@ -40,6 +40,9 @@
my $resp = $sasl->client_step($bind->{serverSaslCreds});
+ $self->set_error(LDAP_DECODING_ERROR,"LDAP decode error"), return
+ unless defined $resp;
+
$self->encode(
bindRequest => {
version => $ldap->version,
|
