===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example1.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- palm/Palm-Keyring/examples/example1.pl	2007/08/10 05:13:31	1.10
+++ palm/Palm-Keyring/examples/example1.pl	2007/09/12 04:59:37	1.11
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: example1.pl,v 1.9 2007/01/30 04:59:55 andrew Exp $
+# $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $
 use strict;
 use warnings;
 
@@ -9,13 +9,13 @@
 
 my $rec = $pdb->append_Record();
 
-my $acct = {
+$rec->{plaintext} = {
 	0 => { data => 'Test3' },
 	1 => { data => 'anothertestaccount' },
 	2 => { data => 'adifferentmypass' },
 	255 => { data => 'now that really roxorZ!' },
 };
 
-$pdb->Encrypt($rec, $acct);
+$pdb->Encrypt($rec);
  
 $pdb->Write("Keys-Gtkr-example.PDB");