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