wikiheaders: Trim whitespace from end of lines in section headers.

This commit is contained in:
Ryan C. Gordon
2025-06-01 10:43:08 -04:00
parent 9e0d9f30a7
commit b8187e2abd

View File

@@ -825,21 +825,23 @@ sub print_big_ascii_string {
die("Don't have a big ascii entry for '$ch'!\n") if not defined $rowsref; die("Don't have a big ascii entry for '$ch'!\n") if not defined $rowsref;
my $row = @$rowsref[$rownum]; my $row = @$rowsref[$rownum];
my $outstr = '';
if ($lowascii) { if ($lowascii) {
my @x = split //, $row; my @x = split //, $row;
foreach (@x) { foreach (@x) {
my $v = ($_ eq "\x{2588}") ? 'X' : ' '; $outstr .= ($_ eq "\x{2588}") ? 'X' : ' ';
print $fh $v;
} }
} else { } else {
print $fh $row; $outstr = $row;
} }
$charidx++; $charidx++;
if ($charidx == $charcount) {
if ($charidx < $charcount) { $outstr =~ s/\s*\Z//; # dump extra spaces at the end of the line.
print $fh " "; } else {
$outstr .= ' '; # space between glyphs.
} }
print $fh $outstr;
} }
print $fh "\n"; print $fh "\n";
} }