From: thijs <thijs@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Tue, 22 May 2007 09:42:43 +0000 (+0000)
Subject: * keylookup:
X-Git-Url: https://git.sthu.org/?p=pgp-tools.git;a=commitdiff_plain;h=8fb4f5dc1465bbb318966382ab439c8039151105

* keylookup:
  + Fix perl warnings caused by empty lines from gpg output.

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

diff --git a/debian/changelog b/debian/changelog
index de60400..8363fac 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,10 +7,12 @@ signing-party (0.4.10-1) unstable; urgency=low
   * gpg-key2ps:
     + Add '-1' option to only display one column of slips, for extra
       wide keys (Closes: #399474).
+  * keylookup:
+    + Fix perl warnings caused by empty lines from gpg output.
   * Drop transitional and now obsolete keylookup package.
   * Remove no longer needed dependency on mailx.
 
- -- Thijs Kinkhorst <thijs@debian.org>  Tue, 22 May 2007 11:36:28 +0200
+ -- Thijs Kinkhorst <thijs@debian.org>  Tue, 22 May 2007 11:41:32 +0200
 
 signing-party (0.4.9-1) unstable; urgency=low
 
diff --git a/keylookup/keylookup b/keylookup/keylookup
index e069289..a8754d3 100755
--- a/keylookup/keylookup
+++ b/keylookup/keylookup
@@ -99,6 +99,7 @@ sub getHits($) {
 
 	while (<KID>) {
 		chomp;
+		if ( $_ eq "" ) { next; }
 		my ($type, undef) = split /:/;
 		if ($type eq 'pub') {
 			my ($type, $keyid, $algo, $bits, $created, undef, $revoked) = split /:/;