diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-28 09:08:39 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-28 09:08:39 +0000 |
| commit | dc75370e54dc39c774f1427a8c9efb0cffa8de3f (patch) | |
| tree | ac6f2566f52631ad0fd67f4c806b158354e0258b | |
| parent | 34d2d19b79c2ed4b7ff25798645c8112c0a50140 (diff) | |
| download | perl-URPM-dc75370e54dc39c774f1427a8c9efb0cffa8de3f.tar perl-URPM-dc75370e54dc39c774f1427a8c9efb0cffa8de3f.tar.gz perl-URPM-dc75370e54dc39c774f1427a8c9efb0cffa8de3f.tar.bz2 perl-URPM-dc75370e54dc39c774f1427a8c9efb0cffa8de3f.tar.xz perl-URPM-dc75370e54dc39c774f1427a8c9efb0cffa8de3f.zip | |
more debug message
| -rw-r--r-- | URPM/Resolve.pm | 14 |
1 files 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; } |