sbotools2

commit ad087c56023d6429f2cb52986b3ddb16574517fe
parent a5f294354f2329fba8107d7af745520604dd6143
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Sat,  4 Feb 2017 19:09:09 +0100

sboremove: fix a few misses

Diffstat:
M
sboremove
 | 
10
+++++-----

1 file changed, 5 insertions(+), 5 deletions(-)
diff --git 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);
     }
   }