diff options
Diffstat (limited to 'tools/binlang')
-rwxr-xr-x | tools/binlang | 10 |
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 | ||
42 | open(ENG, "<$english") or die "Can't open $english"; | 42 | open(ENG, "<$english") or die "Can't open $english"; |
43 | open(LANG, "<$input") or die "Can't open $input"; | 43 | open(LANG, "<$input") or die "Can't open $input"; |
44 | open(OFILE, ">$output" or die "Can't open $output"); | 44 | open(OUTF, ">$output") or die "Can't open $output"; |
45 | 45 | ||
46 | my $langversion = 1; | 46 | my $langversion = 1; |
47 | 47 | ||
48 | binmode OFILE; | 48 | binmode OUTF; |
49 | 49 | ||
50 | printf OFILE ("\x1a%c", $langversion); # magic lang file header | 50 | printf 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 | } |
126 | close(LANG); | 126 | close(LANG); |
127 | 127 | ||
128 | close(OFILE); | 128 | close(OUTF); |
129 | 129 | ||
130 | foreach $k (keys(%idnum)) | 130 | foreach $k (keys(%idnum)) |
131 | { | 131 | { |