===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.49
retrieving revision 1.54
diff -u -r1.49 -r1.54
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/09/12 04:39:22	1.49
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/12/05 05:42:29	1.54
@@ -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.53 2007/12/04 03:34:17 andrew Exp $
 ########################################################################
 # Keyring.pm *** Perl class for Keyring for Palm OS databases.
 #
@@ -15,6 +15,8 @@
 use strict;
 use warnings;
 
+require 5.006_001;
+
 use Carp;
 
 use base qw/ Palm::StdAppInfo /;
@@ -83,7 +85,7 @@
 );
 
 
-our $VERSION = '0.96_01';
+our $VERSION = '0.96_07';
 
 sub new 
 {
@@ -631,8 +633,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') {