diff options
Diffstat (limited to 'urpm/install.pm')
| -rw-r--r-- | urpm/install.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/urpm/install.pm b/urpm/install.pm index db15ae09..0df11dce 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -27,13 +27,13 @@ sub _hash_intersect_list { } sub prepare_transaction { - my ($_urpm, $set, $list, $sources) = @_; + my ($_urpm, $set, $blists, $sources) = @_; - my @transaction_list = map { - _hash_intersect_list($_, $set->{upgrade}); - } @$list; + my @blists_subset = map { + +{ %$_, list => _hash_intersect_list($_->{list}, $set->{upgrade}) }; + } @$blists; - \@transaction_list, _hash_intersect_list($sources, $set->{upgrade}); + \@blists_subset, _hash_intersect_list($sources, $set->{upgrade}); } sub build_transaction_set_ { |