From: thijs <thijs@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Tue, 24 Apr 2007 09:18:50 +0000 (+0000)
Subject:   + Fix perl warnings when calling pgp-fixkey with unknown keyid.
X-Git-Url: https://git.sthu.org/?a=commitdiff_plain;h=e6c98a01c6efd3b9438b0813c3f2eb45ea1ffc04;p=pgp-tools.git

  + 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 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) {
diff --git a/debian/changelog b/debian/changelog
index 397b139..893fe13 100644
--- 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