palm/Palm-Keyring/lib/Palm/Keyring.pm - diff

Return to Keyring.pm CVS log

Up to [local] / palm / Palm-Keyring / lib / Palm

version 1.22, 2007/02/01 01:56:11

version 1.23, 2007/02/02 01:51:46

Line 1

package Palm::Keyring;

# $RedRiver: Keyring.pm,v 1.21 2007/01/31 05:32:20 andrew Exp $

# $RedRiver: Keyring.pm,v 1.22 2007/02/01 01:56:11 andrew Exp $

# Perl class for dealing with Keyring for Palm OS databases.

Line 87

my $self = shift;

my $rec = shift;

my $rec0_id = $self->{'records'}->[0]->{'id'};

if ($rec->{'encrypted'}) {

if ($rec->{'encrypted'} && ! $rec->{'id'} == $rec0_id) {

if (! defined $rec->{'name'}) {

$rec->{'name'} = $EMPTY;

}