diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-05-14 10:22:15 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-05-14 10:22:15 +0100 |
| commit | 345a03f5ad2d71948ca4383682a5549f3053486b (patch) | |
| tree | 8b156f90f383c5987138f115e6f7437075ad04bb /perllib/FixMyStreet/TestMech.pm | |
| parent | 1a7835da6ee96d0287c4523110ebb01f662cafd6 (diff) | |
| parent | f7873a97d3be13251da30f12705c3dafa5468995 (diff) | |
Merge in upgraded Catalyst branch.
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index 3ecb13b6a..848025e8a 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -718,7 +718,7 @@ sub encoded_content { sub content_as_csv { my $self = shift; - open my $data_handle, '<', \$self->content; + open my $data_handle, '<:encoding(utf-8)', \$self->encoded_content; my $csv = Text::CSV->new({ binary => 1 }); my @rows; while (my $row = $csv->getline($data_handle)) { |