diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-03-09 16:56:54 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-03-09 16:56:54 +0100 |
| commit | 5e6745fd3f05e8b559521672e9bc31195e949214 (patch) | |
| tree | d34a9adc0ba0280ae1350813134ec40b55f5b2ab | |
| parent | 407af0476279ef3663fca00c82c5e5cdeab77312 (diff) | |
| download | sbotools2-5e6745fd3f05e8b559521672e9bc31195e949214.tar.xz | |
Make sure we have SBOs to check
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 618a5dd..818d8b8 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -416,8 +416,10 @@ sub get_installed_packages { # Otherwise, mark the SBO ones and filter my @sbos = map { $_->{name} } grep { $_->{build} =~ m/_SBo(|compat32)$/ } @pkgs; - my %locations = get_sbo_locations(map { s/-compat32//gr } @sbos); - foreach my $sbo (@sbos) { $types{$sbo} = 'SBO' if $locations{ $sbo =~ s/-compat32//gr }; } + if (@sbos) { + my %locations = get_sbo_locations(map { s/-compat32//gr } @sbos); + foreach my $sbo (@sbos) { $types{$sbo} = 'SBO' if $locations{ $sbo =~ s/-compat32//gr }; } + } return [ map { +{ name => $_->{name}, version => $_->{version} } } grep { $types{$_->{name}} eq $filter } @pkgs ]; } |