ctdo
/
crashtest-r0ket
16
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix buglet which generated spurious perl warnings (no effect on generated fonts)

This commit is contained in:
Stefan `Sec` Zehl 2011-05-15 22:33:00 +02:00
parent fe229628b3
commit d3882b0b80
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/makefont.pl
View File

@ -283,7 +283,7 @@ sub pk_dedup {
if($echar[$idx-1] eq $echar[$idx]){ if($echar[$idx-1] eq $echar[$idx]){
my $dl=1; my $dl=1;
$dl++ while ($dl<$#echar && $echar[$idx] eq $echar[$idx+$dl]); $dl++ while ($idx+$dl<$#echar && $echar[$idx] eq $echar[$idx+$dl]);
# print "dupline found\n"; # print "dupline found\n";
if( $echar[$idx-1]=~ s/01/0[$dl]1/ ){ if( $echar[$idx-1]=~ s/01/0[$dl]1/ ){