Fix buglet which generated spurious perl warnings (no effect on generated fonts)
This commit is contained in:
parent
fe229628b3
commit
d3882b0b80
|
@ -283,7 +283,7 @@ sub pk_dedup {
|
|||
|
||||
if($echar[$idx-1] eq $echar[$idx]){
|
||||
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";
|
||||
if( $echar[$idx-1]=~ s/01/0[$dl]1/ ){
|
||||
|
|
Loading…
Reference in New Issue