diff options
author | Francois Pons <fpons@mandriva.com> | 2002-06-26 12:37:22 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2002-06-26 12:37:22 +0000 |
commit | 1681c5cab2a0c47a3d38dad85e4835edd4fcba77 (patch) | |
tree | feeb973af05392e7ce29f3febe3b7ba966829336 /URPM/Resolve.pm | |
parent | 6d92a28cdb6392dcf8eae6f358e3eea8aea23093 (diff) | |
download | perl-URPM-1681c5cab2a0c47a3d38dad85e4835edd4fcba77.tar perl-URPM-1681c5cab2a0c47a3d38dad85e4835edd4fcba77.tar.gz perl-URPM-1681c5cab2a0c47a3d38dad85e4835edd4fcba77.tar.bz2 perl-URPM-1681c5cab2a0c47a3d38dad85e4835edd4fcba77.tar.xz perl-URPM-1681c5cab2a0c47a3d38dad85e4835edd4fcba77.zip |
0.04-6mdk
Diffstat (limited to 'URPM/Resolve.pm')
-rw-r--r-- | URPM/Resolve.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index a7e7f25..ccdf64c 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -20,7 +20,7 @@ sub find_candidate_packages { #- check if at least one provide of the package overlap the property. my $satisfied = 0; foreach ($pkg->provides) { - ranges_overlap($property, $_) and ++$satisfied, last; + ranges_overlap($_, $property) and ++$satisfied, last; } $satisfied and push @{$packages{$pkg->name}}, $pkg; } @@ -137,7 +137,8 @@ sub resolve_requested { @chosen = values %$packages; } if (!$pkg && $options{callback_choices} && @chosen > 1) { - $pkg ||= $options{callback_choices}->($urpm, $db, $state, \@chosen); + $pkg = $options{callback_choices}->($urpm, $db, $state, \@chosen); + $pkg or next; #- callback may decide to not continue (or state is already updated). } $pkg ||= $chosen[0]; $pkg && !$pkg->flag_requested && !$pkg->flag_required or next; |