diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-08-21 13:25:54 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-08-21 13:25:54 +0000 |
| commit | bb50dd9f2fea64ea5bb768ba3cebb545128e8394 (patch) | |
| tree | be5a3a1170d6adc5def33c802430f5188ea2fe4d /perl-install/pkgs.pm | |
| parent | 81c5765611fa53b88569da827ec913b2fb61fb1a (diff) | |
| download | drakx-backup-do-not-use-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar drakx-backup-do-not-use-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar.gz drakx-backup-do-not-use-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar.bz2 drakx-backup-do-not-use-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.tar.xz drakx-backup-do-not-use-bb50dd9f2fea64ea5bb768ba3cebb545128e8394.zip | |
use perl-URPM 0.94
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 18 |
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; |