diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-06-28 08:44:23 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-06-28 08:44:23 +0000 |
| commit | c1a17c783ad0accd7f7434500bbf2725972631e4 (patch) | |
| tree | f87ce2c06a9adb55008b1b97487bb1ebec9cbab3 /URPM | |
| parent | 1681c5cab2a0c47a3d38dad85e4835edd4fcba77 (diff) | |
| download | perl-URPM-c1a17c783ad0accd7f7434500bbf2725972631e4.tar perl-URPM-c1a17c783ad0accd7f7434500bbf2725972631e4.tar.gz perl-URPM-c1a17c783ad0accd7f7434500bbf2725972631e4.tar.bz2 perl-URPM-c1a17c783ad0accd7f7434500bbf2725972631e4.tar.xz perl-URPM-c1a17c783ad0accd7f7434500bbf2725972631e4.zip | |
0.05-1mdk
Diffstat (limited to 'URPM')
| -rw-r--r-- | URPM/Resolve.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index ccdf64c..883b9bf 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -212,7 +212,8 @@ sub resolve_requested { push @properties, $best->id; } else { #- no package have been found, we need to remove the package examined. - push @{$state->{ask_remove}{$p->fullname}}, { unsatisfied => \@l, pkg => $pkg }; + push @{$state->{ask_remove}{join '-', ($p->fullname)[0..2]}}, + { unsatisfied => \@l, pkg => $pkg }; } } }); @@ -230,7 +231,8 @@ sub resolve_requested { my ($p) = @_; $state->{conflicts}{$p->fullname}{$pkg->id} = undef; #- all these packages should be removed. - push @{$state->{ask_remove}{$p->fullname}}, { conflicts => $file, pkg => $pkg }; + push @{$state->{ask_remove}{join '-', ($p->fullname)[0..2]}}, + { conflicts => $file, pkg => $pkg }; }); } elsif (my ($property, $name) = /^(([^\s\[]*).*)/) { $db->traverse_tag('whatprovides', [ $name ], sub { @@ -253,7 +255,8 @@ sub resolve_requested { push @properties, $best->id; } else { #- no package have been found, we need to remove the package examined. - push @{$state->{ask_remove}{$p->fullname}}, { conflicts => $property, pkg => $pkg }; + push @{$state->{ask_remove}{join '-', ($p->fullname)[0..2]}}, + { conflicts => $property, pkg => $pkg }; } } }); @@ -271,7 +274,7 @@ sub resolve_requested { } #- obsoleted packages are no longer marked as being asked to be removed. - delete @{$state->{ask_remove}}{keys %{$state->{obsoleted}}}; + delete @{$state->{ask_remove}}{map { /(.*)\.[^\.]*$/ && $1 } keys %{$state->{obsoleted}}}; } #- compute installed flags for all package in depslist. |