From 6ccbae4ff2c95dae85e91d50aea1ccc1c240fafb Mon Sep 17 00:00:00 2001
From: weasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Mon, 25 Jul 2005 23:27:03 +0000
Subject: [PATCH] Ignore revoked UIDs

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@142 b513b33f-fedd-0310-b452-c3deb5f4c849
---
 gpglist/gpglist | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gpglist/gpglist b/gpglist/gpglist
index 58d5c1e..8ed2ca8 100755
--- a/gpglist/gpglist
+++ b/gpglist/gpglist
@@ -78,6 +78,10 @@ while (<SIGS>) {
 }
 close SIGS;
 
+# XXX: Add an option for this
+my $c = 0;
+@uids = grep { ! defined $rev{$uids[$c++]} } @uids;
+
 my $n = scalar @uids -1;
 for ( my $a=0; $a <= $n; $a++ ) {
 	printf "|  " x ($a)
-- 
2.30.2