[Pgp-tools-commit] r888 - trunk/gpgsigs
Guilhem Moulin
guilhem-guest at moszumanska.debian.org
Tue Jan 31 19:13:03 UTC 2017
Author: guilhem-guest
Date: 2017-01-31 19:13:03 +0000 (Tue, 31 Jan 2017)
New Revision: 888
Modified:
trunk/gpgsigs/gpgsigs
Log:
typo
Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs 2017-01-31 16:42:59 UTC (rev 887)
+++ trunk/gpgsigs/gpgsigs 2017-01-31 19:13:03 UTC (rev 888)
@@ -244,8 +244,8 @@
chomp;
# see /usr/share/doc/gnupg/DETAILS.gz
if (/^\[GNUPG:\] ATTRIBUTE [0-9A-F]{24}([0-9A-F]{16}) (\d+) (\d+) (\d+) (\d+) \d+ \d+ (\d+)$/) {
- my $show = $3 == 1 and $4 == 1 and $5 == 1 ? 1 : 0;
- push @photos, {key => $1, size => $2, revoked => $6 & 0x02, show => $show};
+ my $ignore = ($3 == 1 and $4 == 1 and $5 == 1) ? 0 : 1;
+ push @photos, {key => $1, size => $2, revoked => $6 & 0x02, ignore => $ignore};
next;
}
if (!/^\[GNUPG:\] (?:KEYEXPIRED \d+|SIGEXPIRED(?: deprecated-use-keyexpired-instead)?|KEY_CONSIDERED [0-9A-F]{40} \d+)$/) {
@@ -273,7 +273,7 @@
warn "Read $photo->{size} bytes but got $got bytes.\n" if $got != $photo->{size};
}
- next if $photo->{revoked} or !$photo->{show}; # ignore revoked attributes
+ next if $photo->{revoked} or $photo->{ignore}; # ignore revoked attributes
my $key = $photo->{key};
my @uats = grep { $uids{$key}->{$_}->{type} eq 'uat' } @{$keys{$key}};
More information about the Pgp-tools-commit
mailing list