From 3a113f64e78637a847f9f4c98ac82824c444b138 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 10 Sep 2004 06:56:11 +0000
Subject: 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.

---
 perl-install/install_any.pm | 34 ++--------------------------------
 1 file changed, 2 insertions(+), 32 deletions(-)

(limited to 'perl-install')

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);
-- 
cgit v1.2.1