mirror of
https://github.com/sudo-project/sudo.git
synced 2025-08-29 13:28:10 +00:00
Use Text::Wrap::fill() for ChangeLog body, not wrap().
This commit is contained in:
parent
e670d2a85d
commit
a3c1cbd881
@ -48,6 +48,8 @@ my @lines;
|
|||||||
|
|
||||||
# Wrap like "hg log --template=changelog"
|
# Wrap like "hg log --template=changelog"
|
||||||
$Text::Wrap::columns = 77;
|
$Text::Wrap::columns = 77;
|
||||||
|
# Don't preserve tabs
|
||||||
|
$Text::Wrap::unexpand = 0;
|
||||||
|
|
||||||
while (<LOG>) {
|
while (<LOG>) {
|
||||||
chomp;
|
chomp;
|
||||||
@ -110,6 +112,6 @@ sub print_entry
|
|||||||
my $files = "* " . join(", ", @_) . ":";
|
my $files = "* " . join(", ", @_) . ":";
|
||||||
|
|
||||||
print wrap("\t", "\t", $files) . "\n";
|
print wrap("\t", "\t", $files) . "\n";
|
||||||
print wrap("\t", "\t", $body) . "\n";
|
print fill("\t", "\t", $body) . "\n";
|
||||||
print "\t[$hash]\n\n";
|
print "\t[$hash]\n\n";
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user