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

Return to Keyring.pm CVS log

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

version 1.56, 2008/09/18 07:04:55

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

Line 1

package Palm::Keyring;

# $RedRiver: Keyring.pm,v 1.55 2008/09/17 14:47:47 andrew Exp $

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

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

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

Line 292

my $self = shift;

my $rec = shift;

# XXX This probably shouldn't croak, just make something up

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

croak "No encrypted content to pack" if !defined $rec->{encrypted};

$rec->{encrypted} = $EMPTY;

}

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

if ($rec->{encrypted}) {

Line 302

Line 303

}

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

# XXX This probably shouldn't croak, just make something up

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

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

$rec->{ivec} = $EMPTY;

}

my $field;

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