diff --git a/utils/scancpan b/utils/scancpan index e77863de34..5465ff4304 100755 --- a/utils/scancpan +++ b/utils/scancpan @@ -690,6 +690,7 @@ while (my ($distname, $dist) = each %dist) { mkdir $dirname unless -d $dirname; if ($need_target{$distname} && ($force || !-f $cfgname)) { $dist->{abstract} =~ s|\s+$||; + $dist->{abstract} .= q{.} unless $dist->{abstract} =~ m|\.$|; 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;