Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL
In directory sc8-pr-cvs1:/tmp/cvs-serv23315/lib/Authen/SASL
Modified Files:
Perl.pm
Log Message:
Don't call die in DIGEST_MD5, but call set_error and return an empty list
Index: Perl.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Perl.pm 18 Feb 2002 16:56:58 -0000 1.3
+++ Perl.pm 17 Oct 2003 20:17:20 -0000 1.4
@@ -8,7 +8,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.01";
+$VERSION = "1.02";
my %secflags = (
noplaintext => 1,
@@ -40,11 +40,16 @@
$mpkg[0]->_init($self);
}
-sub code { 0 }
-sub error { '' }
-
+sub code { defined(shift->{error}) || 0 }
+sub error { shift->{error} }
sub service { shift->{service} }
sub host { shift->{host} }
+
+sub set_error {
+ my $self = shift;
+ $self->{error} = shift;
+ return;
+}
# set/get property
sub property {
|
