Treat a blank line in a commit message as a line break. There

doesn't appear to be a way to make perl's format use a blank field
but at least the line break happens now.

diff --git a/log2cl.pl b/log2cl.pl
index efae9e211318c27894cc1d88066249f309acbfa3..de3502d7abeaf84f9b97ddff59654d61d4cefbcf 100755 (executable)
--- a/log2cl.pl
+++ b/log2cl.pl
@@ -19,7 +19,7 @@
 
 use warnings;
 
-my $format="%ad  %aN  <%aE>%n%h%n%s%n%b%nFILES:";
+my $format="%ad  %aN  <%aE>%n%h%n%B%nFILES:";
 my @cmd = ("git", "log", "--log-size", "--name-only", "--date=short", "--format=$format", @ARGV);
 open(LOG, '-|', @cmd) || die "$0: unable to run git log: $!";
 
@@ -62,8 +62,9 @@ while (<LOG>) {
            $hash = $_;
            $state++;
        } elsif ($state == 2) {
-           # message body
+           # multi-line message body
            if (defined($body)) {
+               $_ = "\r" if $_ eq "";
                $body .= " $_";
            } else {
                $body = $_;
@@ -95,7 +96,7 @@ sub print_entry
        $files
        ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
        $body
-       ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+       @*
        $hash
 
 .