diff options
Diffstat (limited to 'URPM')
| -rw-r--r-- | URPM/Signature.pm | 49 |
1 files changed, 24 insertions, 25 deletions
diff --git a/URPM/Signature.pm b/URPM/Signature.pm index 1baa9a4..6831680 100644 --- a/URPM/Signature.pm +++ b/URPM/Signature.pm @@ -27,7 +27,7 @@ sub compare_pubkeys { #- parse an armored file and import in keys hash if the key does not already exists. sub parse_armored_file { - my ($urpm, $file, %options) = @_; + my (undef, $file) = @_; my ($block, $content, @l); #- check if an already opened file has been given directly. @@ -61,40 +61,39 @@ sub parse_armored_file { #- pare from rpmlib db. sub parse_pubkeys { my ($urpm, %options) = @_; - my ($block, @l, $content); + my ($block, $content); my $db = $options{db}; $db ||= URPM::DB::open($options{root}); $db->traverse_tag('name', [ 'gpg-pubkey' ], sub { - my ($p) = @_; - my $s; - 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/) { - $urpm->{keys}{$p->version} = { $p->summary =~ /^gpg\((.*)\)$/ ? (name => $1) : @{[]}, - id => $p->version, - content => $content, - block => $p->description, - }; - $block = undef; - $content = ''; - } else { - $content .= $_; - } - } - } - } - }) + my ($p) = @_; + 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/) { + $urpm->{keys}{$p->version} = { + $p->summary =~ /^gpg\((.*)\)$/ ? (name => $1) : @{[]}, + id => $p->version, + content => $content, + block => $p->description, + }; + $block = undef; + $content = ''; + } else { + $content .= $_; + } + } + } + } + }); } #- import pubkeys only if it is needed. sub import_needed_pubkeys { my ($urpm, $l, %options) = @_; - my $block = ''; #- use the same database handle to avoid re-opening multiple times the database. my $db = $options{db}; |