diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2008-06-26 09:46:36 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2008-06-26 09:46:36 +0000 |
commit | 186e71ba67e0b449828c22757a83d2db9d2e4434 (patch) | |
tree | be051e6b16707e6f16aa0ede2fc25339b824f010 /URPM | |
parent | eafee2b9958466622118ada12560eafceaea0ff6 (diff) | |
download | perl-URPM-186e71ba67e0b449828c22757a83d2db9d2e4434.tar perl-URPM-186e71ba67e0b449828c22757a83d2db9d2e4434.tar.gz perl-URPM-186e71ba67e0b449828c22757a83d2db9d2e4434.tar.bz2 perl-URPM-186e71ba67e0b449828c22757a83d2db9d2e4434.tar.xz perl-URPM-186e71ba67e0b449828c22757a83d2db9d2e4434.zip |
- when not selecting a package because already installed,
but it in $state->{rejected} with flags {installed}
Diffstat (limited to 'URPM')
-rw-r--r-- | URPM/Resolve.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 3a582fc..1f21c94 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -666,9 +666,11 @@ sub _set_rejected_from { sub _set_rejected_old_package { my ($state, $pkg, $new_pkg) = @_; - $pkg->fullname ne $new_pkg->fullname or return; - - push @{$state->{rejected}{$pkg->fullname}{backtrack}{keep}}, scalar $new_pkg->fullname; + if ($pkg->fullname eq $new_pkg->fullname) { + $state->{rejected}{$pkg->fullname}{installed} = 1; + } else { + push @{$state->{rejected}{$pkg->fullname}{backtrack}{keep}}, scalar $new_pkg->fullname; + } } #- side-effects: $state->{rejected} |