===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example1.pl,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -r1.1 -r1.4
--- palm/Palm-Keyring/examples/example1.pl	2006/01/26 20:54:19	1.1
+++ palm/Palm-Keyring/examples/example1.pl	2006/04/18 20:39:45	1.4
@@ -3,17 +3,19 @@
 use warnings;
 use diagnostics;
 
-use Palm::PDB;
 use lib 'lib';
 use Palm::Keyring;
 
-my $pdb = new Palm::PDB;
+my $pdb = new Palm::Keyring;
 
 use YAML;
 
 #print Dumper $pdb
 
-$pdb->Load("Keys-GtkrNEW.PDB"); 
+#$pdb->Load("Keys-GtkrNEW.PDB"); 
+#$pdb->Decrypt('12345');
+$pdb->Load("Keys-Gtkr.PDB"); 
+#$pdb->Load("k:/working/Keys-Gtkr.PDB"); 
 $pdb->Decrypt('12345');
 
 #--------------------------------------------------