[perl-ldap-checkins] CVS: sasl/lib/Authen/SASL Perl.pm,1.3,1.4

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

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 {