wrapping
parent
4e9db780d5
commit
e827247a86
|
@ -786,9 +786,10 @@ sub refreshpot ($) {
|
||||||
$doc->{TT}{file_in_charset} = 'utf-8';
|
$doc->{TT}{file_in_charset} = 'utf-8';
|
||||||
$doc->{TT}{file_out_charset} = 'utf-8';
|
$doc->{TT}{file_out_charset} = 'utf-8';
|
||||||
$doc->read($masterfile);
|
$doc->read($masterfile);
|
||||||
# let's cheat a bit to force porefs option to be passed to Locale::Po4a::Po;
|
# let's cheat a bit to force porefs option to be passed to
|
||||||
# this is undocument use of internal Locale::Po4a::TransTractor's data,
|
# Locale::Po4a::Po; this is undocument use of internal
|
||||||
# compulsory since this module prevents us from using the porefs option.
|
# Locale::Po4a::TransTractor's data, compulsory since this module
|
||||||
|
# prevents us from using the porefs option.
|
||||||
$doc->{TT}{po_out}=Locale::Po4a::Po->new({ 'porefs' => 'none' });
|
$doc->{TT}{po_out}=Locale::Po4a::Po->new({ 'porefs' => 'none' });
|
||||||
$doc->{TT}{po_out}->set_charset('utf-8');
|
$doc->{TT}{po_out}->set_charset('utf-8');
|
||||||
# do the actual work
|
# do the actual work
|
||||||
|
|
Loading…
Reference in New Issue