|
Lines 302-308
for my $in_dir ( @in_dirs ) {
Link Here
|
| 302 |
} |
302 |
} |
| 303 |
|
303 |
|
| 304 |
# restores the string list from file |
304 |
# restores the string list from file |
| 305 |
$href = Locale::PO->load_file_ashash($str_file); |
305 |
$href = Locale::PO->load_file_ashash($str_file, 'utf-8'); |
| 306 |
|
306 |
|
| 307 |
# guess the charsets. HTML::Templates defaults to iso-8859-1 |
307 |
# guess the charsets. HTML::Templates defaults to iso-8859-1 |
| 308 |
if (defined $href) { |
308 |
if (defined $href) { |
|
Lines 465-471
if ($action eq 'create') {
Link Here
|
| 465 |
VerboseWarnings::set_input_file_name $input; |
465 |
VerboseWarnings::set_input_file_name $input; |
| 466 |
mkdir_recursive($targetdir) unless -d $targetdir; |
466 |
mkdir_recursive($targetdir) unless -d $targetdir; |
| 467 |
print STDERR "Creating $target...\n" unless $quiet; |
467 |
print STDERR "Creating $target...\n" unless $quiet; |
| 468 |
open( OUTPUT, ">$target" ) || die "$target: $!\n"; |
468 |
open( OUTPUT, ">:encoding(UTF-8)", "$target" ) || die "$target: $!\n"; |
| 469 |
text_replace( $h, *OUTPUT ); |
469 |
text_replace( $h, *OUTPUT ); |
| 470 |
close OUTPUT; |
470 |
close OUTPUT; |
| 471 |
} else { |
471 |
} else { |
| 472 |
- |
|
|