[Buildroot] [RFC PATCH 2/2] scancpan: wrap abstract if too long
Christopher McCrory
chrismcc at gmail.com
Mon Aug 13 13:11:35 UTC 2018
Signed-off-by: Christopher McCrory <chrismcc at gmail.com>
---
utils/scancpan | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/utils/scancpan b/utils/scancpan
index 2070e2a233..f8411079e1 100755
--- a/utils/scancpan
+++ b/utils/scancpan
@@ -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 = 70;
# Below, 5.026 should be aligned with the version of perl actually
# bundled in Buildroot:
@@ -655,7 +657,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("","\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;
--
2.14.4
More information about the buildroot
mailing list