From 1a8adc7f781abdc8d043b88b8ccb59e8f321bb7f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 6 Sep 2008 11:00:09 +0000 Subject: - cleanup doc of _renamed_unrequested() - move things around for next commit --- urpm/orphans.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'urpm/orphans.pm') diff --git a/urpm/orphans.pm b/urpm/orphans.pm index ce050319..db631bc3 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -85,19 +85,16 @@ sub _selected_unrequested { } } keys %$selected; } -#- side-effects: $o_unrequested_list +#- side-effects: none sub _renamed_unrequested { - my ($urpm, $rejected, $o_unrequested_list) = @_; + my ($urpm, $rejected, $current_unrequested) = @_; my @obsoleted = grep { $rejected->{$_}{obsoleted} } keys %$rejected or return; - # we have to read the list to know if the old package was marked "unrequested" - my $current = $o_unrequested_list || unrequested_list($urpm); - my %l; foreach my $fn (@obsoleted) { my ($n) = $fn =~ $fullname2name_re; - $current->{$n} or next; + $current_unrequested->{$n} or next; my ($new_fn) = keys %{$rejected->{$fn}{closure}}; my ($new_n) = $new_fn =~ $fullname2name_re; @@ -109,9 +106,12 @@ sub _renamed_unrequested { } sub _new_unrequested { my ($urpm, $state) = @_; + + my $current_unrequested = unrequested_list($urpm); + ( _selected_unrequested($urpm, $state->{selected}), - _renamed_unrequested($urpm, $state->{rejected}), + _renamed_unrequested($urpm, $state->{rejected}, $current_unrequested), ); } #- side-effects: /var/lib/rpm/installed-through-deps.list -- cgit v1.2.1