From a0f1dcc6eb29ac4c4e85985a4ae4e5631a3f9910 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 12 Mar 2015 13:19:51 +0100
Subject: fucking encodings, how do they work

---
 lib/Travel/Status/DE/URA.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/Travel/Status/DE')

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] );
 		}
 	}
-- 
cgit v1.2.3