# $self->handler(default => "default", "self, line, text, is_cdata"); # anything else
$self->marked_sections(1); #treat anything inside CDATA tags as text, should really make it a C4::TmplTokenType::CDATA
$self->unbroken_text(1); #make contiguous whitespace into a single token (can span multiple lines)
- $self->parse_file($filename);
+ open(my $fh, "<:encoding(utf8)", $filename) || die "Cannot open $filename ($!)";
+ $self->parse_file($fh);
return $self;
}
###############################################################################
sub convert_translation_file {
- open(my $INPUT, '<', $convert_from) || die "$convert_from: $!\n";
+ open(my $INPUT, '<:encoding(utf-8)', $convert_from) || die "$convert_from: $!\n";
VerboseWarnings::set_input_file_name $convert_from;
while (<$INPUT>) {
chomp;
if (defined $output && $output ne '-') {
print STDERR "$0: Opening output file \"$output\"\n" if $verbose_p;
- open($OUTPUT, '>:encoding(utf-8)', $output) || die "$output: $!\n";
+ open($OUTPUT, '>:encoding(utf-8)', $output) || die "$output: $!\n";
} else {
print STDERR "$0: Outputting to STDOUT...\n" if $verbose_p;
open($OUTPUT, ">&STDOUT");
if (defined $files_from) {
print STDERR "$0: Opening input file list \"$files_from\"\n" if $verbose_p;
- open(my $INPUT, '<', $files_from) || die "$files_from: $!\n";
+ open(my $INPUT, '<:encoding(utf-8)', $files_from) || die "$files_from: $!\n";
while (<$INPUT>) {
chomp;
my $input = /^\//? $_: "$directory/$_";