From dc75370e54dc39c774f1427a8c9efb0cffa8de3f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 28 Sep 2007 09:08:39 +0000 Subject: more debug message --- URPM/Resolve.pm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index a2c30a4..3cdb326 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -998,6 +998,14 @@ sub _compute_diff_provides_of_removed_pkg { } } +sub _no_unsatisfied_requires { + my ($urpm, $db, $state, $pkg, $n) = @_; + + my @l = unsatisfied_requires($urpm, $db, $state, $pkg, name => $n); + @l and $urpm->{debug_URPM}("not promoting " . $pkg->fullname . " because of @l") if $urpm->{debug_URPM}; + @l == 0; +} + #- side-effects: $properties #- + those of backtrack_selected_psel_keep ($state->{rejected}, $state->{selected}, $state->{whatrequires}, flag_requested, flag_required) #- + those of resolve_rejected_ ($state->{rejected}, $properties) @@ -1014,8 +1022,8 @@ sub _handle_diff_provides { @packages = grep { ($_->name eq $p->name ? $_->fullname ne $p->fullname : $_->obsoletes_overlap($p->name . " == " . $p->epoch . ":" . $p->version . "-" . $p->release)) - && unsatisfied_requires($urpm, $db, $state, $_, name => $n) == 0 } - @packages; + && _no_unsatisfied_requires($urpm, $db, $state, $_, $n) + } @packages; if (!@packages) { @packages = packages_obsoleting($urpm, $p->name); @@ -1025,7 +1033,7 @@ sub _handle_diff_provides { && !exists $state->{rejected}->{$_->fullname} && $_->obsoletes_overlap($p->name . " == " . $p->epoch . ":" . $p->version . "-" . $p->release) && $_->fullname ne $p->fullname && - unsatisfied_requires($urpm, $db, $state, $_, name => $n) == 0; + _no_unsatisfied_requires($urpm, $db, $state, $_, $n); } @packages; } -- cgit v1.2.1