--- efont-unicode-bdf-0.4.2-src/tools/hex2bdf.in_orig	2019-11-21 19:52:54.341747143 +0100
+++ efont-unicode-bdf-0.4.2-src/tools/hex2bdf.in	2019-11-21 19:53:57.469747085 +0100
@@ -14,7 +14,7 @@
 
 
 while (<>) { $glyph{$1} = $2 if /(.{4,}):(.+)\n/; }
-@chars = sort keys %glyph; $[ = 1;
+@chars = sort keys %glyph;
 #dbmopen (%charname, "/usr/share/unicode/unidata/charname.db", 0);
 
 print "STARTFONT 2.1\n";
@@ -55,7 +55,7 @@
 FONT_DESCENT 2
 DEFAULT_CHAR $default_char
 ENDPROPERTIES
-CHARS $#chars\n";
+CHARS " . scalar(@chars) . "\n";
 
 foreach $character (@chars) {
   $encoding = hex($character); $glyph = $glyph{$character};