public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #82541 from ydlr/nix-generate-from-cpan

Browse Source 
nix-generate-from-cpan: remove "unkown" license and improve core module detection
This commit is contained in:
Robert Helgesson 2020-03-15 12:54:12 +01:00 committed by GitHub
commit 2fc67aca65
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
maintainers/scripts/nix-generate-from-cpan.pl
View File

@ -6,6 +6,7 @@ use warnings;
use CPAN::Meta(); use CPAN::Meta();
use CPANPLUS::Backend(); use CPANPLUS::Backend();
use Module::CoreList;
use Getopt::Long::Descriptive qw( describe_options ); use Getopt::Long::Descriptive qw( describe_options );
use JSON::PP qw( encode_json ); use JSON::PP qw( encode_json );
use Log::Log4perl qw(:easy); use Log::Log4perl qw(:easy);
@ -164,7 +165,7 @@ Readonly::Hash my %LICENSE_MAP => (
# License not provided in metadata. # License not provided in metadata.
unknown => { unknown => {
licenses => [qw( unknown )], licenses => [],
amb => 1 amb => 1
} }
); );
@ -278,14 +279,8 @@ sub get_deps {
foreach my $n ( $deps->required_modules ) { foreach my $n ( $deps->required_modules ) {
next if $n eq "perl"; next if $n eq "perl";
# Figure out whether the module is a core module by attempting my @core = Module::CoreList->find_modules(qr/^$n$/);
# to `use` the module in a pure Perl interpreter and checking next if (@core);
# whether it succeeded. Note, $^X is a magic variable holding
# the path to the running Perl interpreter.
if ( system("env -i $^X -M$n -e1 >/dev/null 2>&1") == 0 ) {
DEBUG("skipping Perl-builtin module $n");
next;
}
my $pkg = module_to_pkg( $cb, $n ); my $pkg = module_to_pkg( $cb, $n );