From cf6128eb021020243cdb23e3dc3b1eca66368944 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Tue, 5 Jun 2012 14:02:07 -0500 Subject: reduction of code for get_installed_sbos () sub. --- SBO-Lib/lib/SBO/Lib.pm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 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 042a4ce..444f104 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -205,16 +205,14 @@ sub slackbuilds_or_fetch { # currently installed. starting to think it might be better to only pull an # array of names, and have another sub to pull the versions. sub get_installed_sbos { + my @paths = ; + $_ =~ s#.*/([^/]+)$#$1#g for @paths; my @installed; - opendir my $diread, '/var/log/packages'; - while (my $ls = readdir $diread) { - next if $ls =~ /\A\./; - if (index ($ls, "SBo") != -1) { - my @split = split (/-/, reverse ($ls), 4); - my $name = reverse ($split[3]); - my $version = reverse ($split[2]); - push (@installed, {name => $name, version => $version} ); - } + for my $path (@paths) { + my @split = split (/-/, reverse ($path), 4); + my $name = reverse ($split[3]); + my $version = reverse ($split[2]); + push (@installed, {name => $name, version => $version} ); } return @installed; } -- cgit v1.2.3