summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-03-12 13:19:51 +0100
committerDaniel Friesel <derf@finalrewind.org>2015-03-12 13:19:51 +0100
commita0f1dcc6eb29ac4c4e85985a4ae4e5631a3f9910 (patch)
tree8a62b7643a2df3ea7d2fe8a4ae457a2e0d81b063
parentf6c1b258b4be472933202f47aacd07c347b927af (diff)
fucking encodings, how do they work
-rw-r--r--lib/Travel/Status/DE/URA.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm
index e2f1c70..13c0f66 100644
--- a/lib/Travel/Status/DE/URA.pm
+++ b/lib/Travel/Status/DE/URA.pm
@@ -61,7 +61,7 @@ sub new {
return $self;
}
- $self->{raw_str} = encode( 'UTF-8', $response->decoded_content );
+ $self->{raw_str} = $response->decoded_content;
# Fix encoding in case we're running through test files
if ( substr( $self->{ura_instant_url}, 0, 5 ) eq 'file:' ) {
@@ -84,7 +84,10 @@ sub parse_raw_data {
if ( substr( $dep, 0, 1 ) != 4 ) {
$csv->parse($dep);
my @fields = $csv->fields;
- push( @{ $self->{raw_list} }, \@fields );
+ push( @{ $self->{raw_list} }, \@fields );
+ for my $i ( 1, 6 ) {
+ $fields[$i] = encode( 'UTF-8', $fields[$i] );
+ }
push( @{ $self->{stop_names} }, $fields[1] );
}
}