=================================================================== RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v retrieving revision 1.59 retrieving revision 1.60 diff -u -r1.59 -r1.60 --- palm/Palm-Keyring/lib/Palm/Keyring.pm 2008/09/19 06:39:07 1.59 +++ palm/Palm-Keyring/lib/Palm/Keyring.pm 2008/09/19 06:53:08 1.60 @@ -1,5 +1,5 @@ package Palm::Keyring; -# $RedRiver: Keyring.pm,v 1.58 2008/09/19 02:50:05 andrew Exp $ +# $RedRiver: Keyring.pm,v 1.59 2008/09/19 05:39:07 andrew Exp $ ######################################################################## # Keyring.pm *** Perl class for Keyring for Palm OS databases. # @@ -491,7 +491,7 @@ } } else { - croak "Unsupported Version $self->{version}"; + croak "Unsupported version $self->{version}"; } $rec->{plaintext}->{0} = $data->{0}; @@ -623,7 +623,7 @@ } } - return 1, 0 if $changed == 0; + return (1, $ivec) if $changed == 0; if ($need_newdate) { my ($day, $month, $year) = (localtime)[3,4,5];