File tree Expand file tree Collapse file tree 1 file changed +8
-6
lines changed Expand file tree Collapse file tree 1 file changed +8
-6
lines changed Original file line number Diff line number Diff line change @@ -825,21 +825,23 @@ sub print_big_ascii_string {
825
825
die (" Don't have a big ascii entry for '$ch '!\n " ) if not defined $rowsref ;
826
826
my $row = @$rowsref [$rownum ];
827
827
828
+ my $outstr = ' ' ;
828
829
if ($lowascii ) {
829
830
my @x = split //, $row ;
830
831
foreach (@x ) {
831
- my $v = ($_ eq " \x{2588} " ) ? ' X' : ' ' ;
832
- print $fh $v ;
832
+ $outstr .= ($_ eq " \x{2588} " ) ? ' X' : ' ' ;
833
833
}
834
834
} else {
835
- print $fh $row ;
835
+ $outstr = $row ;
836
836
}
837
837
838
838
$charidx ++;
839
-
840
- if ($charidx < $charcount ) {
841
- print $fh " " ;
839
+ if ($charidx == $charcount ) {
840
+ $outstr =~ s /\s *\Z // ; # dump extra spaces at the end of the line.
841
+ } else {
842
+ $outstr .= ' ' ; # space between glyphs.
842
843
}
844
+ print $fh $outstr ;
843
845
}
844
846
print $fh " \n " ;
845
847
}
You can’t perform that action at this time.
0 commit comments