summaryrefslogtreecommitdiff
path: root/bin/efa
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-07 10:49:16 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-07 10:49:16 +0100
commitd1ead7ba9bc3bd442f1cc5bb5bf97a46b793b62f (patch)
treedfed001b06e7e7300fe589076c83862a6a0f633d /bin/efa
parentd63bafea6ce6ba6e9551597327f71f69c79062b7 (diff)
efa / VRR.pm: Handle UTF8 / decoded input with non-ASCII chars
Diffstat (limited to 'bin/efa')
-rwxr-xr-xbin/efa7
1 files changed, 7 insertions, 0 deletions
diff --git a/bin/efa b/bin/efa
index 583a48c..a6787f9 100755
--- a/bin/efa
+++ b/bin/efa
@@ -10,6 +10,7 @@ no if $] >= 5.018, warnings => "experimental::smartmatch";
use utf8;
+use Encode qw(decode);
use Travel::Routing::DE::VRR;
use Exception::Class;
use Getopt::Long qw/:config no_ignore_case/;
@@ -176,6 +177,12 @@ if ( not( @from and @to ) ) {
for my $pair ( [ \@from, \$from_type ], [ \@via, \$via_type ],
[ \@to, \$to_type ], )
{
+
+ if ( @{ $pair->[0] } ) {
+ $pair->[0]->[0] = decode( 'UTF-8', $pair->[0]->[0] );
+ $pair->[0]->[1] = decode( 'UTF-8', $pair->[0]->[1] );
+ }
+
next if ( not defined $pair->[0]->[1] );
if (