diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-01-09 16:07:31 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-01-09 16:07:31 +0000 |
| commit | b613e2c025c9730464d7f552c5ec5cabff5fcef6 (patch) | |
| tree | c18ff721d3f61cbd9a1e177c2c61a9d9975ed882 | |
| parent | 4d08eca3d7da1f0a5f9fb91bfa54561cceebb9c7 (diff) | |
| download | perl-URPM-b613e2c025c9730464d7f552c5ec5cabff5fcef6.tar perl-URPM-b613e2c025c9730464d7f552c5ec5cabff5fcef6.tar.gz perl-URPM-b613e2c025c9730464d7f552c5ec5cabff5fcef6.tar.bz2 perl-URPM-b613e2c025c9730464d7f552c5ec5cabff5fcef6.tar.xz perl-URPM-b613e2c025c9730464d7f552c5ec5cabff5fcef6.zip | |
better debug text1.54
| -rw-r--r-- | URPM/Resolve.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 476a003..a5216fb 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -123,7 +123,7 @@ sub find_chosen_packages { } map { my $score = 0; $score += 2 if $_->flag_requested; - $score += 1 if $_->flag_installed; + $score += $_->flag_upgrade ? 1 : -1 if $_->flag_installed; [ $_, $_->is_arch_compat, $score ]; } values %packages; @@ -648,7 +648,7 @@ sub resolve_requested { #- all requires should be satisfied according to selected package, or installed packages. if (my @l = $urpm->unsatisfied_requires($db, $state, $pkg)) { - $urpm->{debug_URPM}("adding require " . join(',', sort @l) . " for " . $pkg->fullname) if $urpm->{debug_URPM}; + $urpm->{debug_URPM}("requiring " . join(',', sort @l) . " for " . $pkg->fullname) if $urpm->{debug_URPM}; unshift @properties, map { +{ required => $_, from => $pkg, exists $dep->{promote} ? (promote => $dep->{promote}) : @{[]}, exists $dep->{psel} ? (psel => $dep->{psel}) : @{[]}, |