diff options
Diffstat (limited to 'apkbuild-cpan.in')
-rwxr-xr-x | apkbuild-cpan.in | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/apkbuild-cpan.in b/apkbuild-cpan.in index c023deb..c538d34 100755 --- a/apkbuild-cpan.in +++ b/apkbuild-cpan.in @@ -124,22 +124,23 @@ sub parse_deps { my $response; my $deps = ""; - for my $module ($reqs->required_modules) { - if (Module::CoreList->is_core($module)) { - my $perlver = Module::CoreList->first_release($module); - say "$module is part of core perl since $perlver."; - next; + foreach $reqs (@_) { + for my $module ($reqs->required_modules) { + if (Module::CoreList->is_core($module)) { + my $perlver = Module::CoreList->first_release($module); + say "$module is part of core perl since $perlver."; + next; + } + next if $module eq 'perl'; + + # map module name to package name + $response = $ua->get("https://fastapi.metacpan.org/module/$module"); + $response->is_success or die $response->status_line; + my $moddata = $json->decode($response->decoded_content); + $moddata->{error} and die "Error trying to locate $module: $moddata->{error}\n"; + $distfiles->{$module} = $moddata->{distribution}; } - next if $module eq 'perl'; - - # map module name to package name - $response = $ua->get("https://fastapi.metacpan.org/module/$module"); - $response->is_success or die $response->status_line; - my $moddata = $json->decode($response->decoded_content); - $moddata->{error} and die "Error trying to locate $module: $moddata->{error}\n"; - $distfiles->{$module} = $moddata->{distribution}; } - # map package names to alpine packages foreach ( keys %{ $distfiles } ) { $response = $ua->get("https://fastapi.metacpan.org/module/$_"); @@ -148,7 +149,7 @@ sub parse_deps { $distdata->{error} and die "Error trying to locate $_: $distdata->{error}\n"; my $pkgname = map_cpan_to_apk($distdata->{distribution}); - $deps .= "$pkgname "; + $deps .= "$pkgname " unless $deps =~ m/$pkgname/; } $deps =~ s/\h+/ /g; $deps =~ s/ $//; |