|
Lines 377-383
if ($action eq 'create') {
Link Here
|
| 377 |
# FIXME: msgmerge(1) is a Unix dependency |
377 |
# FIXME: msgmerge(1) is a Unix dependency |
| 378 |
# FIXME: need to check the return value |
378 |
# FIXME: need to check the return value |
| 379 |
unless (-f $str_file) { |
379 |
unless (-f $str_file) { |
| 380 |
local(*INPUT, *OUTPUT); |
|
|
| 381 |
open(my $input_fh, '<:encoding(utf-8)', $tmpfile2); |
380 |
open(my $input_fh, '<:encoding(utf-8)', $tmpfile2); |
| 382 |
open(my $output_fh, '>:encoding(utf-8)', $str_file); |
381 |
open(my $output_fh, '>:encoding(utf-8)', $str_file); |
| 383 |
while (<$input_fh>) { |
382 |
while (<$input_fh>) { |
| 384 |
- |
|
|