diff mbox series

[1/2] scancpan: add a full stop to the help text when missing

Message ID 20181028152313.23272-1-francois.perrad@gadz.org
State Accepted
Headers show
Series [1/2] scancpan: add a full stop to the help text when missing | expand

Commit Message

Francois Perrad Oct. 28, 2018, 3:23 p.m. UTC 
Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
---
 utils/scancpan | 1 +
 1 file changed, 1 insertion(+)

Comments

Thomas Petazzoni Nov. 1, 2018, 1:41 p.m. UTC | #1 
Hello,

On Sun, 28 Oct 2018 16:23:12 +0100, Francois Perrad wrote:
> Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
> ---
>  utils/scancpan | 1 +
>  1 file changed, 1 insertion(+)

Both patches applied. Thanks!

Thomas
diff mbox series

Patch

diff --git a/utils/scancpan b/utils/scancpan
index 4b93ef769..9e0245d4b 100755
--- a/utils/scancpan
+++ b/utils/scancpan
@@ -701,6 +701,7 @@  while (my ($distname, $dist) = each %dist) {
     }
     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;