diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 10:50:16 -0600 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 10:50:16 -0600 |
| commit | a636f1ac70ad26f4b547b58c3916ca11f2d0ebbe (patch) | |
| tree | 2d5fd02576cc5d82c42dea80da02f3f1d3bbec6b | |
| parent | a7657a05aa4bd3fa649cbcf557b772fb6cf71e00 (diff) | |
| download | sbotools2-a636f1ac70ad26f4b547b58c3916ca11f2d0ebbe.tar.xz | |
call get_sbo_location correctly for new changes
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index e7c8424..9774bc9 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -297,7 +297,7 @@ sub get_available_updates () { my @updates; my $pkg_list = get_installed_sbos; FIRST: for my $key (keys @$pkg_list) { - my $location = get_sbo_location $$pkg_list[$key]{name}; + my $location = get_sbo_location ($$pkg_list[$key]{name}); # if we can't find a location, assume invalid and skip next FIRST unless defined $location; my $version = get_sbo_version $location; @@ -733,7 +733,7 @@ sub add_to_queue ($) { my $sbo = \${$args}{NAME}; return unless $$sbo; unshift @$args{QUEUE}, $$sbo; - my $location = get_sbo_location $$sbo; + my $location = get_sbo_location ($$sbo); return unless $location; my $requires = get_from_info (LOCATION => $location, GET => 'REQUIRES'); FIRST: for my $req (@$requires) { |