===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/01/30 05:16:16	1.17
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/01/30 05:18:06	1.18
@@ -1,6 +1,6 @@
 package Palm::Keyring;
 
-# $RedRiver: Keyring.pm,v 1.16 2007/01/30 04:59:55 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.17 2007/01/30 05:16:16 andrew Exp $
 #
 # Perl class for dealing with Keyring for Palm OS databases.
 #
@@ -393,7 +393,8 @@
     use Palm::Keyring;
     
     my $pass = 'password';
-    my $pdb = new Palm::PDB;
+    my $file = 'Keys-Gtkr.pdb';
+    my $pdb  = new Palm::PDB;
     $pdb->Load($file);
     
     foreach (0..$#{ $pdb->{'records'} }) {