SBO::Lib:: rewrite get_installed_cpans()

1 files changed, 2 insertions, 12 deletions

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