RepoMirrors/abuild
1
0
Fork 0
mirror of https://gitlab.alpinelinux.org/alpine/abuild.git synced 2025-02-01 12:11:36 +00:00
Code Issues Projects Releases Wiki Activity

apkbuild-cpan.in: format depends indent and wrap

Browse Source
This commit is contained in:
Timothy Legge 2020-12-22 23:23:50 +00:00 committed by Natanael Copa
parent 9dde1e73e2
commit 3129c7bcdb
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
apkbuild-cpan.in
View File

@ -12,6 +12,7 @@ use LWP::ConnCache;
use CPAN::Meta;
use Module::CoreList;
use JSON;
use Text::Wrap qw(wrap $columns);
my $license_mappings = {
"perl_5" => "GPL-1.0-or-later OR Artistic-1.0-Perl",
@ -297,6 +298,15 @@ sub sort_pkgs_by_orig {
return join(" ", @tmp);
}
sub format_depends {
my $deps = shift;
$columns = 102;
$deps =~ s/\s{1,}/ /g;
$deps = wrap("\n\t", "\t", $deps) . "\n\t";
return $deps;
}
sub do_depends {
my $oldapkbuild = shift;
my $apkbuild = read_apkbuild;
@ -352,14 +362,17 @@ sub do_depends {
my $libs = $oldapkbuild->{'depends'};
$libs =~ s/perl\-\w+[-\w+]+//g;
$libs =~ s/perl//g;
$deps = $deps . " " .$libs;
if ($libs ne "") {
$deps = $deps . " " .$libs;
}
$deps = sort_pkgs_by_orig ($oldapkbuild->{'depends'}, $deps);
}
if ($deps eq '') {
$deps = "perl";
} else {
$deps = "perl " . $deps;
$deps = format_depends("perl " . $deps);
}
say "CPAN runtime Required: $deps";
@ -389,7 +402,7 @@ sub do_depends {
if ($makedeps eq '') {
$makedeps = "perl-dev";
} else {
$makedeps = "perl-dev " . $makedeps;
$makedeps = format_depends("perl-dev " . $makedeps);
}
say "CPAN build deps: $makedeps";
@ -404,10 +417,13 @@ sub do_depends {
}
my $libs = $oldapkbuild->{'checkdepends'};
$libs =~ s/perl\-\w+[-\w+]+//g;
$checkdeps = $checkdeps . " " .$libs;
if ($libs ne "") {
$checkdeps = $checkdeps . " " .$libs;
}
$checkdeps = sort_pkgs_by_orig ($oldapkbuild->{'checkdepends'}, $checkdeps);
}
$checkdeps = format_depends($checkdeps);
say "CPAN check deps: $checkdeps";
my $text = read_file "APKBUILD";