diff options
Diffstat (limited to 'URPM/Resolve.pm')
| -rw-r--r-- | URPM/Resolve.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index a644994..e6b67b6 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -420,6 +420,8 @@ sub resolve_requested { @{$packages->{$p->name}}; if (length $best) { + print STDERR "using1 $best for promoting $n\n"; + print STDERR $urpm->{depslist}[$best]->fullname."\n"; push @properties, { required => $best, promote => $n, psel => $pkg }; } else { #- no package have been found, we may need to remove the package examined unless @@ -437,8 +439,10 @@ sub resolve_requested { } if (@best == @l) { + print STDERR "using2 @best for promoting $n\n"; push @properties, map { +{ required => $_, promote => $n, psel => $pkg } } @best; } else { + print STDERR "rejecting after trying to promote $n\n"; if ($options{keep}) { unshift @properties, $urpm->backtrack_selected($db, $state, { keep => scalar $p->fullname, @@ -560,7 +564,7 @@ sub resolve_requested { #- without an operator, anything (with the same name) is matched. #- with an operator, check with package EVR with the obsoletes EVR. my $satisfied = !$o || eval($p->compare($v) . $o . 0); - $p->name eq $pkg->name && $p->fullname eq $pkg->fullname || $satisfied or return; + $p->name eq $pkg->name || $satisfied or return; #- do not propagate now the broken dependencies as they are #- computed later. |