summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-08-21 13:25:54 +0000
committerFrancois Pons <fpons@mandriva.com>2003-08-21 13:25:54 +0000
commitbb50dd9f2fea64ea5bb768ba3cebb545128e8394 (patch)
treebe5a3a1170d6adc5def33c802430f5188ea2fe4d /perl-install/pkgs.pm
parent81c5765611fa53b88569da827ec913b2fb61fb1a (diff)
downloaddrakx-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar
drakx-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar.gz
drakx-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar.bz2
drakx-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar.xz
drakx-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.zip
use perl-URPM 0.94
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm18
1 files changed, 2 insertions, 16 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c99bae118..5b9e2f085 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -6,6 +6,7 @@ use strict;
use MDK::Common::System;
use URPM;
use URPM::Resolve;
+use URPM::Signature;
use common;
use install_any;
use run_program;
@@ -415,22 +416,7 @@ sub psUsingHdlist {
#- get all keys corresponding in the right pubkey file,
#- they will be added in rpmdb later if not found.
my $pubkey = install_any::getFile("Mandrake/base/pubkey" . ($hdlist =~ /hdlist(\S*)\.cz2?/ && $1));
- my ($block, $content);
- foreach (<$pubkey>) {
- my $inside_block = /^-----BEGIN PGP PUBLIC KEY BLOCK-----$/ ... /^-----END PGP PUBLIC KEY BLOCK-----$/;
- if ($inside_block) {
- $block .= $_;
- if ($inside_block =~ /E/) {
- push @{$m->{pubkey}}, { block => $block, content => $content };
- $block = $content = undef;
- } else {
- #- now compute content (for finding the right key).
- chomp;
- /^$/ and $content = '';
- defined $content and $content .= $_;
- }
- }
- }
+ $m->{pubkey} = [ $packages->parse_armored_file($pubkey) ];
#- integrate medium in media list, only here to avoid download error (update) to be propagated.
$packages->{mediums}{$medium} = $m;