summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-10-16 12:29:33 +0000
committerFrancois Pons <fpons@mandriva.com>2003-10-16 12:29:33 +0000
commit0fd7fc3b62f0974b96dd5e7c88c1a15dfff28aea (patch)
treeffffdb9aa19d94d0eac2f0f29829768239a59df2 /perl-install
parent5ef6f6e882e9a572078a2e717ecb9e7d13590e06 (diff)
downloaddrakx-0fd7fc3b62f0974b96dd5e7c88c1a15dfff28aea.tar
drakx-0fd7fc3b62f0974b96dd5e7c88c1a15dfff28aea.tar.gz
drakx-0fd7fc3b62f0974b96dd5e7c88c1a15dfff28aea.tar.bz2
drakx-0fd7fc3b62f0974b96dd5e7c88c1a15dfff28aea.tar.xz
drakx-0fd7fc3b62f0974b96dd5e7c88c1a15dfff28aea.zip
fixed to avoid opening 2 ftp files at the same time.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm11
1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 2c7cc01f9..7a777e0ba 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -377,7 +377,7 @@ sub psUsingHdlists {
}
sub psUsingHdlist {
- my ($prefix, $method, $packages, $hdlist, $medium, $rpmsdir, $descr, $selected, $o_fhdlist, $o_fpubkey) = @_;
+ my ($prefix, $method, $packages, $hdlist, $medium, $rpmsdir, $descr, $selected, $o_fhdlist, $o_pubkey) = @_;
my $fakemedium = "$descr ($method$medium)";
my $urpmidir = -w "$prefix/var/lib/urpmi" ? "$prefix/var/lib/urpmi" : "/tmp";
log::l("trying to read $hdlist for medium $medium");
@@ -415,9 +415,12 @@ sub psUsingHdlist {
#- get all keys corresponding in the right pubkey file,
#- they will be added in rpmdb later if not found.
- if (!$o_fhdlist || $o_fpubkey) {
- my $pubkey = $o_fpubkey || install_any::getFile("Mandrake/base/pubkey" . ($hdlist =~ /hdlist(\S*)\.cz2?/ && $1));
- $m->{pubkey} = [ $packages->parse_armored_file($pubkey) ];
+ if (!$o_fhdlist || $o_pubkey) {
+ $m->{pubkey} = $o_pubkey;
+ unless ($m->{pubkey}) {
+ my $pubkey = $o_fpubkey || install_any::getFile("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.