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

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

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) {

diff --git a/debian/changelog b/debian/changelog
index 397b139760a3d2ee31e9f20f52d018a598bffaf7..893fe137de570cabd5f66dddcbbf4b26191d1620 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,11 +2,12 @@ signing-party (0.4.9-2) unstable; urgency=low
 
   * caff:
     + Fix syntax error in example config variables (Closes: #413020).
+    + Fix perl warnings when calling pgp-fixkey with unknown keyid.
   * gpg-key2ps:
     + Add '-1' option to only display one column of slips, for extra
       wide keys (Closes: #399474).
 
- -- Thijs Kinkhorst <thijs@debian.org>  Fri,  2 Mar 2007 14:12:03 +0100
+ -- Thijs Kinkhorst <thijs@debian.org>  Tue, 24 Apr 2007 11:17:43 +0200
 
 signing-party (0.4.9-1) unstable; urgency=low