From 3c9729439ad7d589231468d391aeba453c96307d Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Wed, 1 Jun 2016 00:11:28 +0200
Subject: SBO::Lib: rewrite get_available_updates to not be so funky

---
 SBO-Lib/lib/SBO/Lib.pm | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

(limited to 'SBO-Lib/lib/SBO/Lib.pm')

diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm
index f953e7d..79e4acd 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -629,19 +629,17 @@ sub get_sbo_version {
 sub get_available_updates {
 	my @updates;
 	my $pkg_list = get_installed_packages('SBO');
-	FIRST: for my $key (keys @$pkg_list) {
-		my $location = get_sbo_location($$pkg_list[$key]{name});
-		# if we can't find a location, assume invalid and skip
-		next FIRST unless $location;
+
+	for my $pkg (@$pkg_list) {
+		my $location = get_sbo_location($pkg->{name});
+		next unless $location;
+
 		my $version = get_sbo_version($location);
-		if (versioncmp($version, $$pkg_list[$key]{version}) != 0) {
-			push @updates, {
-				name		=> $$pkg_list[$key]{name},
-				installed	=> $$pkg_list[$key]{version},
-				update		=> $version
-			};
+		if (versioncmp($version, $pkg->{version}) != 0) {
+			push @updates, { name => $pkg->{name}, installed => $pkg->{version}, update => $version };
 		}
 	}
+
 	return \@updates;
 }
 
-- 
cgit v1.2.3