From e738e33e94e82065528ea9b9dd147a43172925ee Mon Sep 17 00:00:00 2001 From: Linus Nielsen Feltzing Date: Sat, 12 Apr 2003 16:23:55 +0000 Subject: Silly error in the output file open() git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3542 a1c6a512-1295-4272-9138-f99709370657 --- tools/binlang | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tools') 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() { 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() { } close(LANG); -close(OFILE); +close(OUTF); foreach $k (keys(%idnum)) { -- cgit v1.2.3