diff options
author | Francois Pons <fpons@mandriva.com> | 2003-10-16 09:49:01 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2003-10-16 09:49:01 +0000 |
commit | c774096c39d2e63e30dfff1ad77466d5472a63f3 (patch) | |
tree | 02d2f7d987d7bec9d410090ed4916c735ea5169f /perl-install | |
parent | c2ce26ddd4b45f0614a5fa55c2e95afabf88924a (diff) | |
download | drakx-c774096c39d2e63e30dfff1ad77466d5472a63f3.tar drakx-c774096c39d2e63e30dfff1ad77466d5472a63f3.tar.gz drakx-c774096c39d2e63e30dfff1ad77466d5472a63f3.tar.bz2 drakx-c774096c39d2e63e30dfff1ad77466d5472a63f3.tar.xz drakx-c774096c39d2e63e30dfff1ad77466d5472a63f3.zip |
make sure a pubkey file can be found if a hdlist handle is given when creating a media.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/pkgs.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 25096ed7e..1b27eaf36 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -415,8 +415,10 @@ 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($o_fpubkey || "Mandrake/base/pubkey" . ($hdlist =~ /hdlist(\S*)\.cz2?/ && $1)); - $m->{pubkey} = [ $packages->parse_armored_file($pubkey) ]; + if (!$o_fhdlist || $o_fpubkey) { + my $pubkey = install_any::getFile($o_fpubkey || "Mandrake/base/pubkey" . ($hdlist =~ /hdlist(\S*)\.cz2?/ && $1)); + $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; |