|
|
|
@ -26,7 +26,7 @@ sub read_texts
|
|
|
|
|
{
|
|
|
|
|
local $_;
|
|
|
|
|
|
|
|
|
|
my ($lang, @f, $txt, $context, $t, $p, $ids, $file);
|
|
|
|
|
my ($lang, @f, $txt, $context, $fuzzy, $t, $p, $ids, $file);
|
|
|
|
|
|
|
|
|
|
$lang = shift;
|
|
|
|
|
|
|
|
|
@ -49,7 +49,7 @@ sub read_texts
|
|
|
|
|
for (@f) {
|
|
|
|
|
if(/^\s*#\.\s*(txt_\S+)/) {
|
|
|
|
|
if($txt) {
|
|
|
|
|
@msgstr = @msgid if $ids || join_msg(\@msgstr) eq "";
|
|
|
|
|
@msgstr = @msgid if $ids || $fuzzy || join_msg(\@msgstr) eq "";
|
|
|
|
|
$txts{$txt} = join_msg(\@msgstr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@ -58,6 +58,12 @@ sub read_texts
|
|
|
|
|
undef @msgid;
|
|
|
|
|
undef @msgstr;
|
|
|
|
|
undef $context;
|
|
|
|
|
undef $fuzzy;
|
|
|
|
|
next;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if(/^\s*#,\s*fuzzy/) {
|
|
|
|
|
$fuzzy = 1;
|
|
|
|
|
next;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@ -89,7 +95,7 @@ sub read_texts
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if($txt) {
|
|
|
|
|
@msgstr = @msgid if $ids || join_msg(\@msgstr) eq "";
|
|
|
|
|
@msgstr = @msgid if $ids || $fuzzy || join_msg(\@msgstr) eq "";
|
|
|
|
|
$txts{$txt} = join_msg(\@msgstr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|