CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-02-15 11:52:15 +02:00
Code Issues Projects Releases Wiki Activity

(print_changelog_deltas): Ensure that a newline precedes each row of `*'s.

Browse Source
This commit is contained in:
Jim Meyering
2003-03-20 17:43:12 +00:00
parent 9f4a054923
commit 780ccddf5c
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
announce-gen
View File

@@ -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;