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; open(ENG, "<$english") or die "Can't open $english"; open(LANG, "<$input") or die "Can't open $input"; -open(OFILE, ">$output" or die "Can't open $output"); +open(OUTF, ">$output") or die "Can't open $output"; my $langversion = 1; -binmode OFILE; +binmode OUTF; -printf OFILE ("\x1a%c", $langversion); # magic lang file header +printf OUTF ("\x1a%c", $langversion); # magic lang file header # # We scan the english file to get the correct order of the id numbers @@ -105,7 +105,7 @@ while(<LANG>) { else { $idnum{$set{'id'}} = '_done_'; - printf OFILE ("%c%c%s\x00", + printf OUTF ("%c%c%s\x00", ($idnum>>8), ($idnum&0xff), $value); if($debug) { @@ -125,7 +125,7 @@ while(<LANG>) { } close(LANG); -close(OFILE); +close(OUTF); foreach $k (keys(%idnum)) { |