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