From e7940430151bbe31ca3e6563b7dd27a54429fa97 Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Tue, 3 May 2016 00:06:15 +0200
Subject: SBO::Lib:: rewrite get_installed_cpans()

---
 SBO-Lib/lib/SBO/Lib.pm | 14 ++------------
 1 file changed, 2 insertions(+), 12 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 efc1ff0..d7801cb 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -1264,29 +1264,19 @@ sub get_readme_contents {
 
 # return a list of perl modules installed via the CPAN
 sub get_installed_cpans {
-	my @locals;
-	for my $dir (@INC) {
-		push @locals, "$dir/perllocal.pod" if -f "$dir/perllocal.pod";
-	}
 	my @contents;
-	for my $file (@locals) {
+	for my $file (grep { -f $_ } map { "$_/perllocal.pod" } @INC) {
 		my ($fh, $exit) = open_read($file);
-		return [] if $exit;
-#		push @contents, grep {/Module|VERSION/} <$fh>;
+		next if $exit;
 		push @contents, grep {/Module/} <$fh>;
 		close $fh;
 	}
 	my $mod_regex = qr/C<Module>\s+L<([^\|]+)/;
-#	my $ver_regex = qr/C<VERSION:\s+([^>]+)>/;
 	my (@mods, @vers);
 	for my $line (@contents) {
 		push @mods, ($line =~ $mod_regex)[0];
-#		push @vers, ($line =~ $ver_regex)[0];
 	}
 	return \@mods;
-#	my %cpans;
-#	$cpans{$mods[$_]} = $vers[$_] for keys @mods;
-#	return \%cpans;
 }
 
 # look for any (user|group)add commands in the README
-- 
cgit v1.2.3