===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example2.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- palm/Palm-Keyring/examples/example2.pl	2007/01/30 04:59:55	1.2
+++ palm/Palm-Keyring/examples/example2.pl	2007/01/31 04:17:15	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver$
+# $RedRiver: example2.pl,v 1.2 2007/01/30 04:59:55 andrew Exp $
 use strict;
 use warnings;
 
@@ -16,7 +16,7 @@
     my $rec = $pdb->{'records'}->[$_];
     my $acct = $pdb->Decrypt($rec);
 
-    print join ":", $rec->{'data'} , $acct->{'account'},
+    print join ":", $rec->{'name'} , $acct->{'account'},
         $acct->{'password'}, $acct->{'notes'};
     print "\n";
 }