diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:34:00 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:34:00 +0000 |
commit | 6cfd26b5663aad89ab1d920f702e3f787c0803a9 (patch) | |
tree | 750ad5a9ec39565a1d61d01ee09005ba278bbf4b | |
parent | b5d43e74a10e43d00561177f95876da7e7da3495 (diff) | |
download | drakx-backup-do-not-use-6cfd26b5663aad89ab1d920f702e3f787c0803a9.tar drakx-backup-do-not-use-6cfd26b5663aad89ab1d920f702e3f787c0803a9.tar.gz drakx-backup-do-not-use-6cfd26b5663aad89ab1d920f702e3f787c0803a9.tar.bz2 drakx-backup-do-not-use-6cfd26b5663aad89ab1d920f702e3f787c0803a9.tar.xz drakx-backup-do-not-use-6cfd26b5663aad89ab1d920f702e3f787c0803a9.zip |
(auto_fill): indent lines beginning with '-'
-rwxr-xr-x | tools/cvslog2changelog.pl | 2 |
1 files changed, 2 insertions, 0 deletions
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"; |