Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl
In directory sc8-pr-cvs1:/tmp/cvs-serv23315/lib/Authen/SASL/Perl
Modified Files:
DIGEST_MD5.pm
Log Message:
Don't call die in DIGEST_MD5, but call set_error and return an empty list
Index: DIGEST_MD5.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/DIGEST_MD5.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- DIGEST_MD5.pm 19 May 2003 16:06:04 -0000 1.1
+++ DIGEST_MD5.pm 17 Oct 2003 20:17:20 -0000 1.2
@@ -10,7 +10,7 @@
use vars qw($VERSION @ISA $CNONCE);
use Digest::MD5 qw(md5_hex md5);
-$VERSION = "1.00";
+$VERSION = "1.01";
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
@@ -46,7 +46,9 @@
}
$sparams{$k} = $v;
}
- die $challenge if length $challenge;
+
+ return $self->set_error("Bad challenge: '$challenge'"
+ if length $challenge;
my %response = (
nonce => $sparams{'nonce'},
|
