summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/db-iris6
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{!} ) {