From dcacfc8d3c498345dad04ae090ac1cc29bf94dc5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 8 Jul 2008 17:53:11 +0000 Subject: move things around --- urpm/install.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'urpm') diff --git a/urpm/install.pm b/urpm/install.pm index bd986156..ca28e894 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -21,10 +21,12 @@ eval { sub prepare_transaction { my ($_urpm, $set, $list, $sources, $transaction_list, $transaction_sources) = @_; - foreach my $id (@{$set->{upgrade}}) { - foreach (0..$#$list) { + foreach (0..$#$list) { + foreach my $id (@{$set->{upgrade}}) { exists $list->[$_]{$id} and $transaction_list->[$_]{$id} = $list->[$_]{$id}; } + } + foreach my $id (@{$set->{upgrade}}) { exists $sources->{$id} and $transaction_sources->{$id} = $sources->{$id}; } } -- cgit v1.2.1