===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example3.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- palm/Palm-Keyring/examples/example3.pl	2008/02/27 23:54:02	1.8
+++ palm/Palm-Keyring/examples/example3.pl	2008/02/28 00:17:33	1.9
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: example3.pl,v 1.7 2007/12/04 03:37:48 andrew Exp $
+# $RedRiver: example3.pl,v 1.8 2008/02/27 23:54:02 andrew Exp $
 ########################################################################
 # palmkeyring.pl *** a command line client for Keyring databases.
 #
@@ -94,8 +94,6 @@
 
 sub show_items
 {
-	get_password() || die "Couldn't decrypt file!";
-
 	foreach (0..$#{ $pdb->{'records'} }) {
         my $r = $pdb->{'records'}->[$_];
 
@@ -110,6 +108,8 @@
 			$matched++ if uc($r->{plaintext}->{0}->{data}) eq uc($name);
 		}
 		next if ( @{ $Categories } || @{ $Names } ) && not $matched;
+
+	    get_password() || die "Couldn't decrypt file!";
 
         my $a = $pdb->Decrypt($r);
         $matched = 0;