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

Return to Keyring.pm CVS log

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

version 1.57, 2008/09/19 03:04:34

version 1.58, 2008/09/19 03:50:05

Line 1

package Palm::Keyring;

# $RedRiver: Keyring.pm,v 1.56 2008/09/18 06:04:55 andrew Exp $

# $RedRiver: Keyring.pm,v 1.57 2008/09/19 02:04:34 andrew Exp $

########################################################################

# Keyring.pm *** Perl class for Keyring for Palm OS databases.

Line 292

my $self = shift;

my $rec = shift;

if (!defined $rec->{encrypted}) {

$rec->{encrypted} = $EMPTY;

}

if ($self->{version} == 4) {

if ($rec->{encrypted}) {

my $name = $rec->{plaintext}->{0}->{data} || $EMPTY;

Line 303

Line 299

}

} elsif ($self->{version} == 5) {

if (!$rec->{ivec}) {

croak 'No encrypted data in record' if !defined $rec->{encrypted};

$rec->{ivec} = $EMPTY;

croak 'No ivec!' if !$rec->{ivec};

}

my $field;

if ($rec->{plaintext}->{0}) {

Line 328

Line 323

# XXX Should I?

delete $rec->{plaintext};

delete $rec->{encrypted};

croak 'No data in record to pack' if !$rec->{data};

return $self->SUPER::PackRecord($rec, @_);

}