summaryrefslogtreecommitdiffstats
path: root/tools/binlang
diff options
context:
space:
mode:
Diffstat (limited to 'tools/binlang')
-rwxr-xr-xtools/binlang16
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>) {
$value = $set{'eng'};
}
- $value =~ s/^\"(.*)\"/$1/g;
+ if($value =~ s/^\"(.*)\"/$1/g) {
- $idnum = $idnum{$set{'id'}};
- $idnum{$set{'id'}} = '_done_';
+ $idnum = $idnum{$set{'id'}};
+ $idnum{$set{'id'}} = '_done_';
- printf OFILE ("%c%c%s\x00",
- ($idnum>>8), ($idnum&0xff),
- $value);
+ printf OFILE ("%c%c%s\x00",
+ ($idnum>>8), ($idnum&0xff),
+ $value);
+ }
+ else {
+ warn "String for ".$set{'id'}." misses quotes\n";
+ }
undef %set;
}