PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

dumpstops: encode output as UTF-8

Browse source
This commit is contained in:
Birte Kristina Friesel 2024-04-07 11:23:35 +02:00
parent 875ec1c3e5
commit a72b6192ed
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/Travelynx/Command/dumpstops.pm
View file

@ -20,7 +20,8 @@ sub run {
$self->help; $self->help;
} }
elsif ( $command eq 'csv' ) { 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" } ); my $csv = Text::CSV->new( { eol => "\r\n" } );
$csv->combine(qw(name eva lat lon source archived)); $csv->combine(qw(name eva lat lon source archived));