aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-09-17 18:03:03 +0000
committerThierry Vignaud <tv@mageia.org>2012-09-17 18:03:03 +0000
commit9798710de11d8451f613d753cf0051967c753fac (patch)
tree68ca905b6312e938ecfc379d4a5acbe8725a8de6 /URPM
parent9d68deab4b578925c35a52c7b10b4c4b63c95a71 (diff)
downloadperl-URPM-9798710de11d8451f613d753cf0051967c753fac.tar
perl-URPM-9798710de11d8451f613d753cf0051967c753fac.tar.gz
perl-URPM-9798710de11d8451f613d753cf0051967c753fac.tar.bz2
perl-URPM-9798710de11d8451f613d753cf0051967c753fac.tar.xz
perl-URPM-9798710de11d8451f613d753cf0051967c753fac.zip
(resolve_requested_suggests) split it out of resolve_requested()
Diffstat (limited to 'URPM')
-rw-r--r--URPM/Resolve.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 7a4ea5d..b6ceac6 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -882,7 +882,14 @@ sub resolve_requested {
my @selected = resolve_requested__no_suggests($urpm, $db, $state, $requested, %options);
if (!$options{no_suggests}) {
- my @todo = @selected;
+ @selected = resolve_requested_suggests($urpm, $db, $state, \@selected, %options);
+ }
+ @selected;
+}
+
+sub resolve_requested_suggests {
+ my ($urpm, $db, $state, $selected, %options) = @_;
+ my @todo = @$selected;
while (@todo) {
my $pkg = shift @todo;
my %suggests = map { $_ => 1 } $pkg->suggests or next;
@@ -908,11 +915,11 @@ sub resolve_requested {
my %new_requested = map { $_ => undef } keys %suggests;
my @new_selected = resolve_requested__no_suggests_($urpm, $db, $state, \%new_requested, %options);
$state->{selected}{$_->id}{suggested} = 1 foreach @new_selected;
- push @selected, @new_selected;
+ push @$selected, @new_selected;
push @todo, @new_selected;
}
- }
- @selected;
+
+ @$selected;
}
#- Resolve dependencies of requested packages; keep resolution state to