+ Fix perl warnings when calling pgp-fixkey with unknown keyid.

[pgp-tools.git] / caff / pgp-fixkey

diff --git a/caff/pgp-fixkey b/caff/pgp-fixkey
index 03d126e56046b2834d56272f43a420d75a2b1894..f35110d5460a0e1621dbcf400aac7ec6fd80914c 100755 (executable)
--- a/caff/pgp-fixkey
+++ b/caff/pgp-fixkey
@@ -291,6 +291,10 @@ for my $keyid (@KEYIDS) {
        };
        my $keyinfo = $stdout;
        my @publine = grep { /^pub/ } (split /\n/, $stdout);
+       if ($#publine < 0) {
+               warn ("No public key found for $keyid.\n");
+               next;
+       }
        my (undef, undef, undef, undef, $longkeyid, undef, undef, undef, undef, undef, undef, $flags) = split /:/, pop @publine;
        my $can_encrypt = $flags =~ /E/;
        unless (defined $longkeyid) {