summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-10 06:56:11 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-10 06:56:11 +0000
commit3a113f64e78637a847f9f4c98ac82824c444b138 (patch)
tree7644fb0c94a98b0d23b70ae496ca5925ed7dd816 /perl-install
parenta2cbd77033cda0dcf9d14b5224e83eff8e6589cf (diff)
downloaddrakx-3a113f64e78637a847f9f4c98ac82824c444b138.tar
drakx-3a113f64e78637a847f9f4c98ac82824c444b138.tar.gz
drakx-3a113f64e78637a847f9f4c98ac82824c444b138.tar.bz2
drakx-3a113f64e78637a847f9f4c98ac82824c444b138.tar.xz
drakx-3a113f64e78637a847f9f4c98ac82824c444b138.zip
Remove (temporarily, do we hope) the code that re-reads all hdlists when the
user has added supplementary media. It doesn't work for now, when the main media is networked and the supplementary media a superset of the main media.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm34
1 files changed, 2 insertions, 32 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index fb6c3a80b..ca65b0c7b 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -555,38 +555,8 @@ sub setPackages {
require pkgs;
if (!$o->{packages} || is_empty_array_ref($o->{packages}{depslist})) {
($o->{packages}, my $suppl_method) = pkgs::psUsingHdlists($o, $o->{method});
- my $nb_suppl_media = 0;
-
- ++$nb_suppl_media while $suppl_method = $o->selectSupplMedia($suppl_method);
-
- if ($nb_suppl_media) {
- #- reread all hdlists and recompute dependencies
- log::l("re-read hdlists");
- pkgs::cleanHeaders($o->{prefix});
- %pkgs::uniq_pkg_seen = ();
- my $oldmediums = $o->{packages}{mediums};
- delete $o->{packages}{rpmdb}; delete $o->{packages};
- $o->{packages} = new URPM;
- @{$o->{packages}}{qw(count mediums)} = (0, {}); #- add additional fields used by DrakX
- for my $h (sort { _media_rank($b) <=> _media_rank($a) } glob(pkgs::urpmidir($o->{prefix}) . "/hdlist.*.cz")) {
- my ($description, $method, $medium_name) = $h =~ /hdlist\.(.*) \(([-a-z]*)(\d+s?)\)\.cz/;
- my $m = pkgs::psUsingHdlist(
- $o->{prefix},
- $method,
- $o->{packages},
- $oldmediums->{$medium_name}{hdlist},
- $medium_name,
- $oldmediums->{$medium_name}{rpmsdir},
- $description,
- 1, #- selected
- $h, #- fhdlist
- undef, #- pubkey
- 1, #- nocopy
- );
- defined $oldmediums->{$medium_name}{$_} and $m->{$_} = $oldmediums->{$medium_name}{$_} for qw(hdlist_size synthesis_hdlist_size with_hdlist ftp_prefix pubkey);
- }
- #$o->{packages}->compute_deps;
- }
+
+ 1 while $suppl_method = $o->selectSupplMedia($suppl_method);
#- open rpm db according to right mode needed.
$o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix}, $rebuild_needed);