summaryrefslogtreecommitdiff
path: root/bin/efa-m
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-06 13:43:29 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-06 13:43:29 +0100
commit574e641846ced2bec34276c9667eaefb0182fb7d (patch)
treee1eda8b574006bd6d2e2b692bcdc827681dfc043 /bin/efa-m
parent8502e801d50f66244a20f6a3561d4cf943d3bb77 (diff)
Handle Umlauts in efa-m and EFA.pm
Diffstat (limited to 'bin/efa-m')
-rwxr-xr-xbin/efa-m4
1 files changed, 4 insertions, 0 deletions
diff --git a/bin/efa-m b/bin/efa-m
index a789058..b76061e 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -9,6 +9,7 @@ our $VERSION = '1.06';
binmode( STDOUT, ':encoding(utf-8)' );
+use Encode qw(decode);
use Getopt::Long qw(:config no_ignore_case);
use List::Util qw(max);
use Travel::Status::DE::EFA;
@@ -40,6 +41,9 @@ if ( @ARGV != 2 ) {
my ( $place, $input ) = @ARGV;
+$place = decode( 'UTF-8', $place );
+$input = decode( 'UTF-8', $input );
+
if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) {
$input_type = $+{type};
}