=================================================================== RCS file: /cvs/palm/Palm-Keyring/examples/example3.pl,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- palm/Palm-Keyring/examples/example3.pl 2007/09/12 04:59:37 1.6 +++ palm/Palm-Keyring/examples/example3.pl 2007/12/04 03:37:48 1.7 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $RedRiver: example3.pl,v 1.5 2007/08/10 04:13:31 andrew Exp $ +# $RedRiver: example3.pl,v 1.6 2007/09/12 03:59:37 andrew Exp $ ######################################################################## # palmkeyring.pl *** a command line client for Keyring databases. # @@ -95,7 +95,6 @@ get_password() || die "Couldn't decrypt file!"; foreach (0..$#{ $pdb->{'records'} }) { - next if $_ == 0; my $r = $pdb->{'records'}->[$_]; my $category =