summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtools/binlang10
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/binlang b/tools/binlang
index 885f819001..2f3753a7cd 100755
--- a/tools/binlang
+++ b/tools/binlang
@@ -41,13 +41,13 @@ my $idnum=0;
41 41
42open(ENG, "<$english") or die "Can't open $english"; 42open(ENG, "<$english") or die "Can't open $english";
43open(LANG, "<$input") or die "Can't open $input"; 43open(LANG, "<$input") or die "Can't open $input";
44open(OFILE, ">$output" or die "Can't open $output"); 44open(OUTF, ">$output") or die "Can't open $output";
45 45
46my $langversion = 1; 46my $langversion = 1;
47 47
48binmode OFILE; 48binmode OUTF;
49 49
50printf OFILE ("\x1a%c", $langversion); # magic lang file header 50printf OUTF ("\x1a%c", $langversion); # magic lang file header
51 51
52# 52#
53# We scan the english file to get the correct order of the id numbers 53# We scan the english file to get the correct order of the id numbers
@@ -105,7 +105,7 @@ while(<LANG>) {
105 else { 105 else {
106 $idnum{$set{'id'}} = '_done_'; 106 $idnum{$set{'id'}} = '_done_';
107 107
108 printf OFILE ("%c%c%s\x00", 108 printf OUTF ("%c%c%s\x00",
109 ($idnum>>8), ($idnum&0xff), 109 ($idnum>>8), ($idnum&0xff),
110 $value); 110 $value);
111 if($debug) { 111 if($debug) {
@@ -125,7 +125,7 @@ while(<LANG>) {
125} 125}
126close(LANG); 126close(LANG);
127 127
128close(OFILE); 128close(OUTF);
129 129
130foreach $k (keys(%idnum)) 130foreach $k (keys(%idnum))
131{ 131{