From aa55d788ed9d68828b7eb597b4b2a32edb077672 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 8 Jul 2008 20:22:28 +0000 Subject: now, get rid of blist->{list} :) --- urpm/get_pkgs.pm | 9 +++------ urpm/install.pm | 5 +---- 2 files changed, 4 insertions(+), 10 deletions(-) (limited to 'urpm') diff --git a/urpm/get_pkgs.pm b/urpm/get_pkgs.pm index ceef8e66..6e3ebfc4 100644 --- a/urpm/get_pkgs.pm +++ b/urpm/get_pkgs.pm @@ -120,11 +120,7 @@ sub selected2local_and_blists { $pkgs{$id_map{$id}} = $pkg; } } - if (%pkgs) { - my $blist = { medium => $medium, pkgs => \%pkgs }; - $blist->{list} = { map { $_ => urpm::blist_pkg_to_url($blist, $pkgs{$_}) } keys %pkgs }; - $blist; - } else { () } + %pkgs ? { medium => $medium, pkgs => \%pkgs } : (); } (@{$urpm->{media} || []}); if (@remaining_ids) { @@ -142,7 +138,8 @@ sub _create_old_list_from_blists { [ map { my $medium = $_; my ($blist) = grep { $_->{medium} == $medium } @$blists; - $blist->{list}; + + { map { $_ => urpm::blist_pkg_to_url($blist, $blist->{pkgs}{$_}) } keys %{$blist->{pkgs}} }; } @$media ]; } diff --git a/urpm/install.pm b/urpm/install.pm index 6a3e3770..82f2a481 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -30,10 +30,7 @@ sub prepare_transaction { my ($_urpm, $set, $blists, $sources) = @_; my @blists_subset = map { - +{ %$_, - list => _hash_intersect_list($_->{list}, $set->{upgrade}), - pkgs => _hash_intersect_list($_->{pkgs}, $set->{upgrade}), - }; + +{ %$_, pkgs => _hash_intersect_list($_->{pkgs}, $set->{upgrade}) }; } @$blists; \@blists_subset, _hash_intersect_list($sources, $set->{upgrade}); -- cgit v1.2.1