* print out which keyid we complain about
git-svn-id: svn://svn.debian.org/pgp-tools/trunk@115
b513b33f-fedd-0310-b452-
c3deb5f4c849
my ($fromcharset, $charset, $recv_keys);
my ($fromcharset, $charset, $recv_keys);
+Getopt::Long::config('bundling');
- f => \$fromcharset,
- t => \$charset,
+ '-f=s' => \$fromcharset,
+ '-t=s' => \$charset,
r => \$recv_keys,
help => sub { usage(*STDOUT, 0); },
version => sub { version(*STDOUT); exit 0;},
r => \$recv_keys,
help => sub { usage(*STDOUT, 0); },
version => sub { version(*STDOUT); exit 0;},
if (!@mykeys || scalar @ARGV) {
usage(*STDERR, 1);
}
if (!@mykeys || scalar @ARGV) {
usage(*STDERR, 1);
}
-if (!grep { /^([0-9A-F]{16,16}|[0-9A-F]{8,8})$/ } @mykeys) {
- print STDERR "Invalid keyid given\n";
+foreach my $falsekey (grep { $_ !~ /^([0-9A-F]{16,16}|[0-9A-F]{8,8})$/ } @mykeys) {
+ print STDERR "Invalid keyid $falsekey given\n";