[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Bind.pm,1.3,1.4

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

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,