diff --git a/lib/Travelynx/Command/dumpstops.pm b/lib/Travelynx/Command/dumpstops.pm index 79fb6ac064a93a73bd782ebf43f299cf484f50fd..e6740eca57c11d9fee7e61b3987bb4894355b85a 100644 --- a/lib/Travelynx/Command/dumpstops.pm +++ b/lib/Travelynx/Command/dumpstops.pm @@ -20,7 +20,8 @@ sub run { $self->help; } elsif ( $command eq 'csv' ) { - open( my $fh, '>', $filename ) or die("open($filename): $!\n"); + open( my $fh, '>:encoding(utf-8)', $filename ) + or die("open($filename): $!\n"); my $csv = Text::CSV->new( { eol => "\r\n" } ); $csv->combine(qw(name eva lat lon source archived));