|
@@ -688,6 +688,7 @@ while (my ($distname, $dist) = each %dist) {
|
|
|
my $brname = brname( $fsname );
|
|
|
mkdir $dirname unless -d $dirname;
|
|
|
if ($need_target{$distname} && ($force || !-f $cfgname)) {
|
|
|
+ $dist->{abstract} =~ s|\s+$||;
|
|
|
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;
|