Warn if we do not find a public key, not only if we get no output at all (tru:.....

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@90 b513b33f-fedd-0310-b452-c3deb5f4c849

diff --git a/caff/caff b/caff/caff
index 4bbab0aedfab23c84aaf4dbc4ed0ea9d84e31e3d..ec6b6f409efc84d646b593e60d48be9059b7bd82 100755 (executable)
--- a/caff/caff
+++ b/caff/caff
@@ -641,6 +641,10 @@ for my $keyid (@keyids_ok) {
                next;
        };
        my @publine = grep { /^pub/ } (split /\n/, $stdout);
+       if (scalar @publine == 0) {
+               warn ("No public keys found with list-key $keyid (note that caff uses its own keyring in $GNUPGHOME).\n");
+               next;
+       };
        my (undef, undef, undef, undef, $longkeyid, undef, undef, undef, undef, undef, undef, $flags) = split /:/, pop @publine;
        if (scalar @publine > 0) {
                warn ("More than one key matched $keyid.  Try to specify the long keyid or fingerprint\n");