From 1681c5cab2a0c47a3d38dad85e4835edd4fcba77 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 26 Jun 2002 12:37:22 +0000 Subject: 0.04-6mdk --- URPM/Resolve.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'URPM') 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; -- cgit v1.2.1