From: Graham B. <gb...@us...> - 2003-10-17 21:25:06
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory sc8-pr-cvs1:/tmp/cvs-serv8786/lib/Net/LDAP Modified Files: Bind.pm Log Message: Fix error checking on client_step to check for an empty list, not undef Index: Bind.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Bind.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- Bind.pm 6 May 2003 16:45:20 -0000 1.4 +++ Bind.pm 17 Oct 2003 21:22:56 -0000 1.5 @@ -1,4 +1,4 @@ -# Copyright (c) 1998-2000 Graham Barr <gb...@po...>. All rights reserved. +# Copyright (c) 1998-2003 Graham Barr <gb...@po...>. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -38,10 +38,8 @@ $self->{mesgid} = Net::LDAP::Message->NewMesgID(); # Get a new message ID - my $resp = $sasl->client_step($bind->{serverSaslCreds}); - - $self->set_error(LDAP_DECODING_ERROR,"LDAP decode error"), return - unless defined $resp; + my ($resp) = $sasl->client_step($bind->{serverSaslCreds}) + or $self->set_error(LDAP_DECODING_ERROR,"LDAP decode error"), return; $self->encode( bindRequest => { |