use binmode to load data in cp1250 encoding

diff --git a/lib/MojoFacets/Import/CSV.pm b/lib/MojoFacets/Import/CSV.pm
index 7d62f15..41c168a 100644 (file)
--- a/lib/MojoFacets/Import/CSV.pm
+++ b/lib/MojoFacets/Import/CSV.pm
@@ -18,7 +18,7 @@ sub data {
 
        my $path = $self->path;
 
-       my $data = read_file $self->full_path;
+       my $data = read_file $self->full_path, { binmode => ':cp1250' }; # FIXME configurable!
 
        my @lines = split(/\r?\n/, $data);
        $data = { items => [] };