sbotools2

commit e7940430151bbe31ca3e6563b7dd27a54429fa97
parent d29cb5065ffef0450ffe052597cd135880813ac9
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Tue,  3 May 2016 00:06:15 +0200

SBO::Lib:: rewrite get_installed_cpans()

Diffstat:
M
SBO-Lib/lib/SBO/Lib.pm
 | 
14
++------------

1 file changed, 2 insertions(+), 12 deletions(-)
diff --git 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