From 574e641846ced2bec34276c9667eaefb0182fb7d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 6 Jan 2014 13:43:29 +0100
Subject: Handle Umlauts in efa-m and EFA.pm

---
 bin/efa-m | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'bin')

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};
 }
-- 
cgit v1.2.3