===================================================================
RCS file: /cvs/palm/Palm-Keyring/t/keyring.t,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- palm/Palm-Keyring/t/keyring.t	2008/09/19 06:39:58	1.23
+++ palm/Palm-Keyring/t/keyring.t	2008/09/19 06:53:08	1.24
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-# $RedRiver: keyring.t,v 1.22 2008/09/19 02:51:44 andrew Exp $
+# $RedRiver: keyring.t,v 1.23 2008/09/19 05:39:58 andrew Exp $
 use strict;
 use warnings;
 
@@ -206,7 +206,8 @@
 );
 
 $pdb->{version} = 999;
-eval{ $pdb->Encrypt( $record, $password, $acct ) };
+delete $record->{encrypted};
+eval{ $pdb->Encrypt( $record, undef, $acct ) };
 like(
     $@,
     qr/^Unsupported \s version \s 999/xms,