===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/19 03:50:05	1.58
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/19 06:39:07	1.59
@@ -1,5 +1,5 @@
 package Palm::Keyring;
-# $RedRiver: Keyring.pm,v 1.57 2008/09/19 02:04:34 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.58 2008/09/19 02:50:05 andrew Exp $
 ########################################################################
 # Keyring.pm *** Perl class for Keyring for Palm OS databases.
 #
@@ -352,7 +352,7 @@
         # Nothing extra for version 4
 
     } elsif ($self->{version} == 5) {
-        _parse_appinfo_v5($appinfo) || return;
+        _parse_appinfo_v5($appinfo);
 
     } else {
         croak "Unsupported Version $self->{version}";
@@ -365,10 +365,7 @@
 {
     my $appinfo = shift;
 
-    if (! exists $appinfo->{other}) {
-        # XXX Corrupt appinfo?
-        return;
-    }
+    croak 'Corrupt appinfo? no {other}' if ! $appinfo->{other};
 
     my $unpackstr
         = ("C1" x 8)  # 8 uint8s in an array for the salt
@@ -437,23 +434,25 @@
     my $self = shift;
     my $rec  = shift;
     my $pass = shift || $self->{password};
+
+    if ( !$rec ) {
+        croak('Needed parameter [record] not passed!');
+    }
+
     my $data = shift || $rec->{plaintext};
     my $ivec = shift;
 
+
     if ( ! $pass && ! $self->{appinfo}->{key}) {
-        croak("password not set!\n");
+        croak('password not set!');
     }
 
-    if ( ! $rec) {
-        croak("Needed parameter 'record' not passed!\n");
-    }
-
     if ( ! $data) {
-        croak("Needed 'plaintext' not passed!\n");
+        croak('Needed parameter [plaintext] not passed!');
     }
 
     if ( $pass && ! $self->Password($pass)) {
-        croak("Incorrect Password!\n");
+        croak('Incorrect Password!');
     }
 
     my $acct;
@@ -592,7 +591,9 @@
     my $c = crypts($cipher) or croak('Unknown cipher ' . $cipher);
 
     if (! defined $ivec) { 
-        $ivec = pack("C*",map {rand(256)} 1..$c->{blocksize});
+        while (! $ivec) {
+            $ivec = pack("C*",map {rand(256)} 1..$c->{blocksize});
+        }
     }
 
     my $changed = 0;