* 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 de6040040eecf0f5275d09ada04e187bb1ebc934..8363fac48c88092bed02d2dd1bf1931ed08a8485 100644 (file)
--- 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 e069289f670f75d6dce5d04783b11cc786331ff3..a8754d3f48fffcc87c3e24679d4c3c044cffd819 100755 (executable)
--- 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 /:/;