diff options
| -rw-r--r-- | NEWS | 5 | ||||
| -rw-r--r-- | URPM/Signature.pm | 37 |
2 files changed, 27 insertions, 15 deletions
@@ -16,6 +16,11 @@ Version 4.0 - 11 Nov 2010, by Per Øyvind Karlsen - refactorize code - rewrite for native rpm5 API (ditching rpm.org compatibility) +Version 3.38 - 16 November 2010, by Joao Victor Martins + +- fix the key parsing to handle PEM encapsulated header portion (bug +#61636) + Version 3.37 - 20 October 2010 - fix crashing on undefined packages (#54521) diff --git a/URPM/Signature.pm b/URPM/Signature.pm index b050f91..003af07 100644 --- a/URPM/Signature.pm +++ b/URPM/Signature.pm @@ -25,25 +25,32 @@ sub parse_pubkeys_ { $db->traverse_tag('name', [ 'gpg-pubkey' ], sub { my ($p) = @_; + # the first blank separates the PEM headers from key data, this + # flags we found it: + my $found_blank = 0; foreach (split "\n", $p->description) { - $block ||= /^-----BEGIN PGP PUBLIC KEY BLOCK-----$/; if ($block) { - my $inside_block = /^$/ ... /^-----END PGP PUBLIC KEY BLOCK-----$/; - if ($inside_block > 1) { - if ($inside_block =~ /E/) { - $keys{$p->version} = { - $p->summary =~ /^gpg\((.*)\)$/ ? (name => $1) : @{[]}, - id => $p->version, - content => $content, - block => $p->description, - }; - $block = undef; - $content = ''; - } else { - $content .= $_; - } + if (/^$/ and not $found_blank) { + # All content until now were the encapsulated pem + # headers... + $content = ''; + $found_blank = 1; + } + elsif (/^-----END PGP PUBLIC KEY BLOCK-----$/) { + $keys{$p->version} = { + $p->summary =~ /^gpg\((.*)\)$/ ? (name => $1) : @{[]}, + id => $p->version, + content => $content, + block => $p->description, + }; + $block = undef; + $content = ''; + } + else { + $content .= $_; } } + $block ||= /^-----BEGIN PGP PUBLIC KEY BLOCK-----$/; } }); |