From fc3d747a072ce053ba3e164b76db07d087bbfe95 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 8 Jul 2008 19:21:41 +0000 Subject: propagate blist->{pkgs} --- urpm/install.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/urpm/install.pm b/urpm/install.pm index 0df11dce..6a3e3770 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -30,7 +30,10 @@ sub prepare_transaction { my ($_urpm, $set, $blists, $sources) = @_; my @blists_subset = map { - +{ %$_, list => _hash_intersect_list($_->{list}, $set->{upgrade}) }; + +{ %$_, + list => _hash_intersect_list($_->{list}, $set->{upgrade}), + pkgs => _hash_intersect_list($_->{pkgs}, $set->{upgrade}), + }; } @$blists; \@blists_subset, _hash_intersect_list($sources, $set->{upgrade}); -- cgit v1.2.1