diff options
author | Jacob Pipkin <j@dawnrazor.net> | 2012-06-05 14:09:33 -0500 |
---|---|---|
committer | Jacob Pipkin <j@dawnrazor.net> | 2012-06-05 14:09:33 -0500 |
commit | 004265df979938f0f43e597f0243cc746d899033 (patch) | |
tree | 31b485e213138d7a9cba8a44bdc2d4f4eff4b899 | |
parent | cf6128eb021020243cdb23e3dc3b1eca66368944 (diff) | |
download | sbotools2-004265df979938f0f43e597f0243cc746d899033.tar.xz |
further reduction of code for get_installed_sbos () sub.
-rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 5 |
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]); |