diff options
| author | Francois Perrad <fperrad@gmail.com> | 2018-10-28 16:23:12 +0100 |
|---|---|---|
| committer | Thomas Petazzoni <thomas.petazzoni@bootlin.com> | 2018-11-01 14:41:00 +0100 |
| commit | ccd05f6fe5ca90c969d8a468390ada162c1d9c92 (patch) | |
| tree | 81012ca0c238c26279675f4b8d76256545d6481b /utils | |
| parent | 6e122b4700ad68b96e842a3f19d34b444dd61d5a (diff) | |
utils/scancpan: add a full stop to the help text when missing
Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
Signed-off-by: Thomas Petazzoni <thomas.petazzoni@bootlin.com>
Diffstat (limited to 'utils')
| -rwxr-xr-x | utils/scancpan | 1 |
1 files changed, 1 insertions, 0 deletions
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; |