Fix table plugin can handle UTF-8 csv format

master
Feng Shu 2018-12-02 08:41:39 +08:00 committed by Simon McVittie
parent 3c66dca6ea
commit 2965846ef2
1 changed files with 2 additions and 1 deletions

View File

@ -135,6 +135,7 @@ sub split_csv ($$) {
my $csv = Text::CSV->new({ my $csv = Text::CSV->new({
sep_char => $delimiter, sep_char => $delimiter,
binary => 1, binary => 1,
decode_utf8 => 1,
allow_loose_quotes => 1, allow_loose_quotes => 1,
}) || error("could not create a Text::CSV object"); }) || error("could not create a Text::CSV object");
@ -143,7 +144,7 @@ sub split_csv ($$) {
foreach my $line (@text_lines) { foreach my $line (@text_lines) {
$l++; $l++;
if ($csv->parse($line)) { if ($csv->parse($line)) {
push(@data, [ map { decode_utf8 $_ } $csv->fields() ]); push(@data, [ $csv->fields() ]);
} }
else { else {
debug(sprintf(gettext('parse fail at line %d: %s'), debug(sprintf(gettext('parse fail at line %d: %s'),