From d3882b0b805ede6f7fcf83511be31d01eab0e897 Mon Sep 17 00:00:00 2001
From: Stefan `Sec` Zehl <sec@42.org>
Date: Sun, 15 May 2011 22:33:00 +0200
Subject: [PATCH] Fix buglet which generated spurious perl warnings (no effect
 on generated fonts)

---
 tools/makefont.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/makefont.pl b/tools/makefont.pl
index 0a87c46..5a5c271 100755
--- a/tools/makefont.pl
+++ b/tools/makefont.pl
@@ -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/ ){