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() --- URPM/Resolve.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'URPM') 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