diff options
Diffstat (limited to 'tools/binlang')
-rwxr-xr-x | tools/binlang | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/tools/binlang b/tools/binlang index ed158e7f2a..e77830fc6e 100755 --- a/tools/binlang +++ b/tools/binlang | |||
@@ -89,14 +89,18 @@ while(<LANG>) { | |||
89 | $value = $set{'eng'}; | 89 | $value = $set{'eng'}; |
90 | } | 90 | } |
91 | 91 | ||
92 | $value =~ s/^\"(.*)\"/$1/g; | 92 | if($value =~ s/^\"(.*)\"/$1/g) { |
93 | 93 | ||
94 | $idnum = $idnum{$set{'id'}}; | 94 | $idnum = $idnum{$set{'id'}}; |
95 | $idnum{$set{'id'}} = '_done_'; | 95 | $idnum{$set{'id'}} = '_done_'; |
96 | 96 | ||
97 | printf OFILE ("%c%c%s\x00", | 97 | printf OFILE ("%c%c%s\x00", |
98 | ($idnum>>8), ($idnum&0xff), | 98 | ($idnum>>8), ($idnum&0xff), |
99 | $value); | 99 | $value); |
100 | } | ||
101 | else { | ||
102 | warn "String for ".$set{'id'}." misses quotes\n"; | ||
103 | } | ||
100 | 104 | ||
101 | undef %set; | 105 | undef %set; |
102 | } | 106 | } |