From ed5e1c36e3fef5c2aea65a8d8438fce55562c625 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 4 Jul 2008 13:05:09 +0000 Subject: add removed_or_obsoleted_packages() --- NEWS | 2 +- URPM/Resolve.pm | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index f3b6599..428ff66 100644 --- a/NEWS +++ b/NEWS @@ -1,4 +1,4 @@ -- add traverse_tag_find() +- add traverse_tag_find(), removed_or_obsoleted_packages() - handle $state->{orphans_to_remove} in selected_size() and build_transaction_set() 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. -- cgit v1.2.1