Use Text::Wrap::fill() for ChangeLog body, not wrap().

sudo-project · Dec 27, 2024 · a3c1cbd · a3c1cbd
1 parent e670d2a
commit a3c1cbd
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/scripts/log2cl.pl b/scripts/log2cl.pl
@@ -48,6 +48,8 @@
 
 # Wrap like "hg log --template=changelog"
 $Text::Wrap::columns = 77;
+# Don't preserve tabs
+$Text::Wrap::unexpand = 0;
 
 while (<LOG>) {
     chomp;
@@ -110,6 +112,6 @@ sub print_entry
     my $files = "* " . join(", ", @_) . ":";
 
     print wrap("\t", "\t", $files) . "\n";
-    print wrap("\t", "\t", $body) . "\n";
+    print fill("\t", "\t", $body) . "\n";
     print "\t[$hash]\n\n";
 }