===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/18 07:04:55	1.56
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/19 03:04:34	1.57
@@ -1,5 +1,5 @@
 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.
 #
@@ -292,8 +292,9 @@
     my $self = shift;
     my $rec  = shift;
 
-    # XXX This probably shouldn't croak, just make something up
-    croak "No encrypted content to pack" if !defined $rec->{encrypted};
+    if (!defined $rec->{encrypted}) {
+        $rec->{encrypted} = $EMPTY;
+    }
 
     if ($self->{version} == 4) {
         if ($rec->{encrypted}) {
@@ -302,8 +303,9 @@
         }
 
     } elsif ($self->{version} == 5) {
-        # XXX This probably shouldn't croak, just make something up
-        croak "No ivec" if !$rec->{ivec};
+        if (!$rec->{ivec}) {
+            $rec->{ivec} = $EMPTY;
+        }
 
         my $field;
         if ($rec->{plaintext}->{0}) {