From bd42b1a0ed0c8b607d65c04d70890ad82e0caf55 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 6 Sep 2008 11:05:37 +0000 Subject: partially revert previous commit (_selected_unrequested() doesn't need $current_unrequested) --- urpm/orphans.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'urpm/orphans.pm') diff --git a/urpm/orphans.pm b/urpm/orphans.pm index db631bc3..2750317c 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -87,14 +87,17 @@ sub _selected_unrequested { } #- side-effects: none sub _renamed_unrequested { - my ($urpm, $rejected, $current_unrequested) = @_; + my ($urpm, $rejected) = @_; 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 = unrequested_list($urpm); + my %l; foreach my $fn (@obsoleted) { my ($n) = $fn =~ $fullname2name_re; - $current_unrequested->{$n} or next; + $current->{$n} or next; my ($new_fn) = keys %{$rejected->{$fn}{closure}}; my ($new_n) = $new_fn =~ $fullname2name_re; @@ -106,12 +109,9 @@ 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}, $current_unrequested), + _renamed_unrequested($urpm, $state->{rejected}), ); } #- side-effects: /var/lib/rpm/installed-through-deps.list -- cgit v1.2.1