Takashi Iwai
47d45ac264
- Fix use of deprecated one-based array index, removed in perl 5.30. Add remove_deprecated_one_based_array_index.diff OBS-URL: https://build.opensuse.org/request/show/750168 OBS-URL: https://build.opensuse.org/package/show/M17N:fonts/efont-unicode-bitmap-fonts?expand=0&rev=13
21 lines
634 B
Diff
21 lines
634 B
Diff
--- 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};
|