diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-07-04 13:05:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-07-04 13:05:09 +0000 |
| commit | ed5e1c36e3fef5c2aea65a8d8438fce55562c625 (patch) | |
| tree | 10377701271773aa7cf198b8dc9b9e0f6f23dd5b /URPM/Resolve.pm | |
| parent | 11c6dd5ec517b539234cb183f804f7b5893cbba7 (diff) | |
| download | perl-URPM-ed5e1c36e3fef5c2aea65a8d8438fce55562c625.tar perl-URPM-ed5e1c36e3fef5c2aea65a8d8438fce55562c625.tar.gz perl-URPM-ed5e1c36e3fef5c2aea65a8d8438fce55562c625.tar.bz2 perl-URPM-ed5e1c36e3fef5c2aea65a8d8438fce55562c625.tar.xz perl-URPM-ed5e1c36e3fef5c2aea65a8d8438fce55562c625.zip | |
add removed_or_obsoleted_packages()
Diffstat (limited to 'URPM/Resolve.pm')
| -rw-r--r-- | URPM/Resolve.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 34ac590..61429c2 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -32,6 +32,12 @@ sub packages_to_remove { $state->{rejected}{$_}{removed} && !$state->{rejected}{$_}{obsoleted}; } keys %{$state->{rejected} || {}}; } +sub removed_or_obsoleted_packages { + my ($state) = @_; + grep { + $state->{rejected}{$_}{removed} || $state->{rejected}{$_}{obsoleted}; + } keys %{$state->{rejected} || {}}; +} #- Find candidates packages from a require string (or id). #- Takes care of direct choices using the '|' separator. |