===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/19 06:53:08	1.60
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/19 06:55:35	1.61
@@ -1,5 +1,5 @@
 package Palm::Keyring;
-# $RedRiver: Keyring.pm,v 1.59 2008/09/19 05:39:07 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.60 2008/09/19 05:53:08 andrew Exp $
 ########################################################################
 # Keyring.pm *** Perl class for Keyring for Palm OS databases.
 #
@@ -480,15 +480,12 @@
         $encrypted = _encrypt_v4($datav4, $acctv4, $self->{digest});
 
     } elsif ($self->{version} == 5) {
-        ($encrypted, $ivec) = _encrypt_v5(
+        ($encrypted, $rec->{ivec}) = _encrypt_v5(
             $data, $acct,
             $self->{appinfo}->{key}, 
             $self->{appinfo}->{cipher},
             $ivec,
         );
-        if (defined $ivec) {
-            $rec->{ivec} = $ivec;
-        }
 
     } else {
         croak "Unsupported version $self->{version}";