devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

Silly error in the output file open()

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3542 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Linus Nielsen Feltzing 2003-04-12 16:23:55 +00:00
parent 35c417f1d4
commit e738e33e94
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tools/binlang
View file

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