diff options
author | Linus Nielsen Feltzing <linus@haxx.se> | 2003-04-12 16:23:55 +0000 |
---|---|---|
committer | Linus Nielsen Feltzing <linus@haxx.se> | 2003-04-12 16:23:55 +0000 |
commit | e738e33e94e82065528ea9b9dd147a43172925ee (patch) | |
tree | 418fe9f84536357ae84eccdf5b034c5cc3a8a32f /tools/binlang | |
parent | 35c417f1d4cfa303fc1ab97718a5a47a7378f095 (diff) | |
download | rockbox-e738e33e94e82065528ea9b9dd147a43172925ee.tar.gz rockbox-e738e33e94e82065528ea9b9dd147a43172925ee.zip |
Silly error in the output file open()
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3542 a1c6a512-1295-4272-9138-f99709370657
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 | { |