diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2014-01-07 10:49:16 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2014-01-07 10:49:16 +0100 |
| commit | d1ead7ba9bc3bd442f1cc5bb5bf97a46b793b62f (patch) | |
| tree | dfed001b06e7e7300fe589076c83862a6a0f633d /lib/Travel | |
| parent | d63bafea6ce6ba6e9551597327f71f69c79062b7 (diff) | |
efa / VRR.pm: Handle UTF8 / decoded input with non-ASCII chars
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Routing/DE/VRR.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Travel/Routing/DE/VRR.pm b/lib/Travel/Routing/DE/VRR.pm index 29a30b3..28dcf58 100644 --- a/lib/Travel/Routing/DE/VRR.pm +++ b/lib/Travel/Routing/DE/VRR.pm @@ -7,7 +7,7 @@ use 5.010; no if $] >= 5.018, warnings => "experimental::smartmatch"; use Carp qw(cluck); -use Encode qw(decode); +use Encode qw(decode encode); use Travel::Routing::DE::VRR::Route; use LWP::UserAgent; use XML::LibXML; @@ -236,6 +236,9 @@ sub place { ); } + $place = encode( 'ISO-8859-15', $place ); + $stop = encode( 'ISO-8859-15', $stop ); + $type //= 'stop'; @{ $self->{post} }{ "place_${which}", "name_${which}" } = ( $place, $stop ); |