mirror of
https://github.com/libsdl-org/SDL.git
synced 2025-09-06 19:38:14 +00:00
wikiheaders: Trim whitespace from end of lines in section headers.
This commit is contained in:
@@ -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";
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user