From d1ead7ba9bc3bd442f1cc5bb5bf97a46b793b62f Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 7 Jan 2014 10:49:16 +0100 Subject: efa / VRR.pm: Handle UTF8 / decoded input with non-ASCII chars --- bin/efa | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'bin') 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 ( -- cgit v1.2.3