diff options
author | Daniel Friesel <derf@finalrewind.org> | 2014-01-10 10:57:56 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2014-01-10 10:59:30 +0100 |
commit | d6b324c6cc2863332c790924a1538dc7ac04ff0e (patch) | |
tree | 26bc3113b6206da65be08d92dfeae30ab9013caa | |
parent | 954742fc7e83a88519de69a90d1ecdcfb3881bd2 (diff) |
db-iris: Fix --via
-rwxr-xr-x | bin/db-iris | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/db-iris b/bin/db-iris index d25f40f..f81dc99 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -9,7 +9,7 @@ use DateTime; use DateTime::Format::Strptime; use Encode qw(decode); use Getopt::Long qw(:config no_ignore_case); -use List::Util qw(max); +use List::Util qw(first max); use Travel::Status::DE::IRIS; use Travel::Status::DE::IRIS::Stations; @@ -138,7 +138,7 @@ for my $d ( $status->results() ) { my @via; - @via = $d->route; + @via = $d->route_post; if ( $filter_via and not( first { $_ =~ m{$filter_via}io } @via ) ) { next; |