aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsboremove10
1 files 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);
}
}