X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=caff%2Fpgp-fixkey;h=f35110d5460a0e1621dbcf400aac7ec6fd80914c;hb=e6c98a01c6efd3b9438b0813c3f2eb45ea1ffc04;hp=03d126e56046b2834d56272f43a420d75a2b1894;hpb=da28c2625b93e9efe06e68b95fba1f7b2ffb1709;p=pgp-tools.git

diff --git a/caff/pgp-fixkey b/caff/pgp-fixkey
index 03d126e..f35110d 100755
--- 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) {