From 6cfd26b5663aad89ab1d920f702e3f787c0803a9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Jan 2001 23:34:00 +0000 Subject: (auto_fill): indent lines beginning with '-' --- tools/cvslog2changelog.pl | 2 ++ 1 file changed, 2 insertions(+) (limited to 'tools/cvslog2changelog.pl') diff --git a/tools/cvslog2changelog.pl b/tools/cvslog2changelog.pl index 4b33fed45..26f5c8243 100755 --- a/tools/cvslog2changelog.pl +++ b/tools/cvslog2changelog.pl @@ -23,6 +23,7 @@ foreach $date (reverse sort keys %l) { while (($file, $log) = each %{$l{$date}{$user}}) { $log =~ s/^\s+( \*)?//ms; $log =~ s/\s+$//ms; + $log = "\n$log" if $log =~ /^-/; push @{$inv{$log}}, $file; } foreach $log (keys %inv) { @@ -39,6 +40,7 @@ sub auto_fill { map { my @l; my $l = ''; + $_ = " $_" if /^-/; while ($_) { s/^(\s*)(\S*)//; my $m = "$l$1$2"; -- cgit v1.2.1