===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.49
retrieving revision 1.53
diff -u -r1.49 -r1.53
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/09/12 04:39:22	1.49
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/12/04 03:34:17	1.53
@@ -1,5 +1,5 @@
 package Palm::Keyring;
-# $RedRiver: Keyring.pm,v 1.48 2007/09/12 02:44:36 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.52 2007/12/04 03:33:34 andrew Exp $
 ########################################################################
 # Keyring.pm *** Perl class for Keyring for Palm OS databases.
 #
@@ -83,7 +83,7 @@
 );
 
 
-our $VERSION = '0.96_01';
+our $VERSION = '0.96_06';
 
 sub new 
 {
@@ -631,8 +631,10 @@
 
     my $plaintext;
     foreach my $k (keys %{ $new }) {
+        next if $new->{$k}->{label_id} == 0;
         $plaintext .= _pack_field($new->{$k});
     }
+	$plaintext .= chr(0xff) x 2;
 
     my $encrypted;
     if ($c->{name} eq 'None') {