From: Graham B. <gb...@us...> - 2003-10-17 20:21:26
|
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 { |