summaryrefslogtreecommitdiffstats
path: root/tools/binlang
diff options
context:
space:
mode:
authorLinus Nielsen Feltzing <linus@haxx.se>2003-04-12 16:23:55 +0000
committerLinus Nielsen Feltzing <linus@haxx.se>2003-04-12 16:23:55 +0000
commite738e33e94e82065528ea9b9dd147a43172925ee (patch)
tree418fe9f84536357ae84eccdf5b034c5cc3a8a32f /tools/binlang
parent35c417f1d4cfa303fc1ab97718a5a47a7378f095 (diff)
downloadrockbox-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-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;
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))
{