From 780ccddf5cb6e3d1e4dfb94a74a03919b877d7ea Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Thu, 20 Mar 2003 17:43:12 +0000
Subject: (print_changelog_deltas): Ensure that a newline precedes each row of
 `*'s.

---
 announce-gen | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'announce-gen')

diff --git a/announce-gen b/announce-gen
index 834d33a66..b63585bdf 100755
--- a/announce-gen
+++ b/announce-gen
@@ -6,7 +6,7 @@ use Getopt::Long;
 use Digest::MD5;
 use Digest::SHA1;
 
-(my $VERSION = '$Revision: 1.12 $ ') =~ tr/[0-9].//cd;
+(my $VERSION = '$Revision: 1.13 $ ') =~ tr/[0-9].//cd;
 (my $ME = $0) =~ s|.*/||;
 
 my %valid_release_types = map {$_ => 1} qw (alpha beta major);
@@ -117,7 +117,7 @@ sub print_changelog_deltas ($$)
   # Remove leading `./'.
   @reordered = map { s!^\./!!; $_ } @reordered;
 
-  print "ChangeLog entries:\n\n";
+  print "\nChangeLog entries:\n\n";
   # print join ("\n", @reordered), "\n";
 
   $prev_version =~ s/\./_/g;
@@ -131,6 +131,7 @@ sub print_changelog_deltas ($$)
   # +++ ChangeLog   22 Feb 2003 16:52:51 -0000      1.247
   # and those starting with `+'.
   # Don't print the others.
+  my $prev_printed_line_empty = 1;
   while (defined (my $line = <DIFF>))
     {
       if ($line =~ /^\+\+\+ /)
@@ -138,12 +139,15 @@ sub print_changelog_deltas ($$)
 	  my $separator = "*"x70 ."\n";
 	  $line =~ s///;
 	  $line =~ s/\s.*//;
+	  $prev_printed_line_empty
+	    or print "\n";
 	  print $separator, $line, $separator;
 	}
       elsif ($line =~ /^\+/)
 	{
 	  $line =~ s///;
 	  print $line;
+	  $prev_printed_line_empty = ($line =~ /^$/);
 	}
     }
   close DIFF;
-- 
cgit v1.2.3-54-g00ecf