From f5673f483e5ccf733fad1647a70aaed41488972f Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 5 Jul 2017 17:20:13 +0200
Subject: Fix encoding issues caused by recent API changes

---
 lib/Travel/Status/DE/EFA.pm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'lib')

diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index 605e92d..673313a 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -10,7 +10,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch';
 our $VERSION = '1.14';
 
 use Carp qw(confess cluck);
-use Encode qw(encode decode);
+use Encode qw(encode);
 use Travel::Status::DE::EFA::Line;
 use Travel::Status::DE::EFA::Result;
 use Travel::Status::DE::EFA::Stop;
@@ -91,11 +91,11 @@ sub new {
 			mode                   => 'direct',
 			nameInfo_dm            => 'invalid',
 			nameState_dm           => 'empty',
-			name_dm                => encode( 'ISO-8859-15', $opt{name} ),
+			name_dm                => encode( 'UTF-8', $opt{name} ),
 			outputFormat           => 'XML',
 			placeInfo_dm           => 'invalid',
 			placeState_dm          => 'empty',
-			place_dm               => encode( 'ISO-8859-15', $opt{place} ),
+			place_dm               => encode( 'UTF-8', $opt{place} ),
 			ptOptionsActive        => '1',
 			requestID              => '0',
 			reset                  => 'neue Anfrage',
@@ -241,14 +241,14 @@ sub check_for_ambiguous {
 	my $s_name  = $e_name->getAttribute('state');
 
 	if ( $s_place eq 'list' ) {
-		$self->{place_candidates} = [ map { decode( 'UTF-8', $_->textContent ) }
+		$self->{place_candidates} = [ map { $_->textContent }
 			  @{ $e_place->findnodes($xp_place_elem) } ];
 		$self->{errstr} = 'ambiguous place parameter';
 		return;
 	}
 	if ( $s_name eq 'list' ) {
-		$self->{name_candidates} = [ map { decode( 'UTF-8', $_->textContent ) }
-			  @{ $e_name->findnodes($xp_name_elem) } ];
+		$self->{name_candidates}
+		  = [ map { $_->textContent } @{ $e_name->findnodes($xp_name_elem) } ];
 
 		$self->{errstr} = 'ambiguous name parameter';
 		return;
@@ -331,12 +331,12 @@ sub lines {
 			@lines,
 			Travel::Status::DE::EFA::Line->new(
 				name       => $line,
-				direction  => decode( 'UTF-8', $direction ),
+				direction  => $direction,
 				valid      => $valid,
-				type       => decode( 'UTF-8', $type ),
+				type       => $type,
 				mot        => $mot,
-				route      => decode( 'UTF-8', $route ),
-				operator   => decode( 'UTF-8', $operator ),
+				route      => $route,
+				operator   => $operator,
 				identifier => $identifier,
 			)
 		);
@@ -371,8 +371,8 @@ sub parse_route {
 				arr_time => sprintf_time( $times[0] ),
 				dep_date => sprintf_date( $dates[-1] ),
 				dep_time => sprintf_time( $times[-1] ),
-				name     => decode( 'UTF-8', $e->getAttribute('name') ),
-				name_suf => decode( 'UTF-8', $e->getAttribute('nameWO') ),
+				name     => $e->getAttribute('name'),
+				name_suf => $e->getAttribute('nameWO'),
 				platform => $e->getAttribute('platformName'),
 			)
 		);
@@ -492,9 +492,9 @@ sub results {
 				key           => $key,
 				lineref       => $line_obj[0] // undef,
 				line          => $line,
-				destination   => decode( 'UTF-8', $dest ),
+				destination   => $dest,
 				countdown     => $countdown,
-				info          => decode( 'UTF-8', $info ),
+				info          => $info,
 				delay         => $delay,
 				sched_date    => $date,
 				sched_time    => $time,
-- 
cgit v1.2.3