[PATCH 2/2] gitlog-to-changelog: terminate the 1st line of commit message with a dot

[Dmitry V. Levin]

* build-aux/gitlog-to-changelog: If the first non-blank line of a commit
message ends with a non-blank symbol, make this line terminated with a
dot.
---
 ChangeLog                     |    5 +++++
 build-aux/gitlog-to-changelog |    4 ++++
 2 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 088d239..80862fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2011-10-29  Dmitry V. Levin  <address@hidden>
 
+       gitlog-to-changelog: terminate the 1st line of commit message with a 
dot.
+       * build-aux/gitlog-to-changelog: If the first non-blank line of a commit
+       message ends with a non-blank symbol, make this line terminated with a
+       dot.
+
        gitlog-to-changelog: treat messages without non-blank lines as empty.
        * build-aux/gitlog-to-changelog: Move the code that removes leading and
        trailing blank lines before the code that issues a warning about an
diff --git a/build-aux/gitlog-to-changelog b/build-aux/gitlog-to-changelog
index a5fd80d..6762079 100755
--- a/build-aux/gitlog-to-changelog
+++ b/build-aux/gitlog-to-changelog
@@ -163,6 +163,10 @@ sub quoted_cmd(@)
         }
       else
         {
+          # If the first line ends with a non-blank symbol,
+          # make the line terminated with a dot.
+          $line[0] =~ /[.\s]$/ or $line[0] .= ".";
+
           # Prefix each non-empty line with a TAB.
           @line = map { length $_ ? "\t$_" : '' } @line;
 
-- 
ldv