diff options
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 14 |
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 |