|
@@ -484,6 +484,8 @@ use HTTP::Tiny;
|
|
|
use Safe;
|
|
|
use MetaCPAN::API::Tiny;
|
|
|
use Digest::SHA qw(sha256_hex);
|
|
|
+use Text::Wrap;
|
|
|
+$Text::Wrap::columns = 62;
|
|
|
|
|
|
# Below, 5.026 should be aligned with the version of perl actually
|
|
|
# bundled in Buildroot:
|
|
@@ -686,7 +688,7 @@ while (my ($distname, $dist) = each %dist) {
|
|
|
my $brname = brname( $fsname );
|
|
|
mkdir $dirname unless -d $dirname;
|
|
|
if ($need_target{$distname} && ($force || !-f $cfgname)) {
|
|
|
- my $abstract = $dist->{abstract};
|
|
|
+ my $abstract = wrap( q{}, qq{\t }, $dist->{abstract} );
|
|
|
my $homepage = $dist->{resources}->{homepage} || qq{https://metacpan.org/release/${distname}};
|
|
|
say qq{write ${cfgname}} unless $quiet;
|
|
|
open my $fh, q{>}, $cfgname;
|