[perl-ldap-checkins] CVS: sasl/lib/Authen/SASL/Perl DIGEST_MD5.pm,1.1,1.2

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

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'},