lol unicode

1 files changed, 2 insertions, 1 deletions

diff --git a/index.pl b/index.pl
index a44c0bd..2dfb5ca 100644
--- a/index.pl
+++ b/index.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/env perl
 use Mojolicious::Lite;
 use DBI;
+use Encode qw(decode);
 use Travel::Status::DE::IRIS;
 use Travel::Status::DE::IRIS::Stations;
 use 5.014;
@@ -120,7 +121,7 @@ helper barplot_filters => sub {
 		],
 		destinations => [
 			q{},
-			map { $_->[0] } @{
+			map { decode('utf8', $_->[0]) } @{
 				$dbh->selectall_arrayref(
 "select distinct destination from $table order by destination"
 				)