aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-01-09 16:07:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-01-09 16:07:31 +0000
commitb613e2c025c9730464d7f552c5ec5cabff5fcef6 (patch)
treec18ff721d3f61cbd9a1e177c2c61a9d9975ed882
parent4d08eca3d7da1f0a5f9fb91bfa54561cceebb9c7 (diff)
downloadperl-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.pm4
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}) : @{[]},