From ad087c56023d6429f2cb52986b3ddb16574517fe Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Sat, 4 Feb 2017 19:09:09 +0100 Subject: sboremove: fix a few misses --- sboremove | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/sboremove b/sboremove index 48b077f..43a77c3 100755 --- a/sboremove +++ b/sboremove @@ -117,16 +117,16 @@ sub get_full_queue { my $remove_queue = []; my %warnings; for my $sbo (@sbos) { - my $queue = get_build_queue($sbo, \%warnings); + my $queue = get_build_queue([$sbo], \%warnings); @$queue = reverse @$queue; $remove_queue = merge_queues($remove_queue, $queue); } - return map {; + return map {; +{ name => $_, pkg => $installed->{$_}, defined $warnings{$_} ? (warning => $warnings{$_}) : () - } + } } grep { exists $installed->{$_} } @$remove_queue; } @@ -148,8 +148,8 @@ sub get_required_by { my ($sbo, $confirmed, $required_by) = @_; my @dep_of; - if ( $required_by{$sbo} ) { - for my $req_by (keys %{$required_by{$sbo}}) { + if ( $required_by->{$sbo} ) { + for my $req_by (keys %{$required_by->{$sbo}}) { push @dep_of, $req_by unless in($req_by => @$confirmed); } } -- cgit v1.2.3