efa / VRR.pm: Handle UTF8 / decoded input with non-ASCII chars

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 (