diff options
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-x | bin/db-iris | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/db-iris b/bin/db-iris index 9deaf57..eefb2c6 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -5,6 +5,7 @@ use 5.018; our $VERSION = '0.00'; +use Encode qw(decode); use Getopt::Long qw(:config no_ignore_case); use List::Util qw(max); use Travel::Status::DE::IRIS; @@ -43,7 +44,10 @@ if ( @ARGV != 1 ) { } my ($station) = @ARGV; -$station = get_station($station); + +$filter_via = decode( 'UTF-8', $filter_via ); +$station = decode( 'UTF-8', $station ); +$station = get_station($station); for my $type ( split( qr{,}, $types ) ) { if ( substr( $type, 0, 1 ) eq q{!} ) { |