diff options
Diffstat (limited to 'bin')
| -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; |