aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJacob Pipkin <j@dawnrazor.net>2012-06-05 14:09:33 -0500
committerJacob Pipkin <j@dawnrazor.net>2012-06-05 14:09:33 -0500
commit004265df979938f0f43e597f0243cc746d899033 (patch)
tree31b485e213138d7a9cba8a44bdc2d4f4eff4b899
parentcf6128eb021020243cdb23e3dc3b1eca66368944 (diff)
downloadsbotools2-004265df979938f0f43e597f0243cc746d899033.tar.xz
further reduction of code for get_installed_sbos () sub.
-rw-r--r--SBO-Lib/lib/SBO/Lib.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm
index 444f104..cc90eff 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -205,10 +205,9 @@ 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 = </var/log/packages/*_SBo>;
- $_ =~ s#.*/([^/]+)$#$1#g for @paths;
my @installed;
- for my $path (@paths) {
+ for my $path (</var/log/packages/*_SBo>) {
+ $path =~ s#.*/([^/]+)$#$1#g;
my @split = split (/-/, reverse ($path), 4);
my $name = reverse ($split[3]);
my $version = reverse ($split[2]);