diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa-m | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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}; } |