diff options
Diffstat (limited to 'bin/db-iris')
| -rwxr-xr-x | bin/db-iris | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/bin/db-iris b/bin/db-iris index 2b6025d..2d2c89d 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -10,10 +10,10 @@ our $VERSION = '1.75'; use DateTime; use DateTime::Format::Strptime; -use Encode qw(decode); +use Encode qw(decode); use Getopt::Long qw(:config no_ignore_case bundling); use JSON; -use List::Util qw(first max); +use List::Util qw(first max); use List::MoreUtils qw(none); use Travel::Status::DE::IRIS; use Travel::Status::DE::IRIS::Stations; @@ -462,7 +462,7 @@ for my $d ( $status->results() ) { @via = ( $d->route_post, $d->route_end ); if ( ( $filter_via and not( first { $_ =~ m{$filter_via}io } @via ) ) - or ( @grep_class and none { $_ ~~ \@grep_class } $d->classes ) + or ( @grep_class and none { $_ ~~ \@grep_class } $d->classes ) or ( @grep_platform and not( $d->platform ~~ \@grep_platform ) ) or ( @grep_type and not( $d->type ~~ \@grep_type ) ) or $d->is_wing ) @@ -482,8 +482,7 @@ for my $d ( $status->results() ) { my $d_via = first { $_->train_id eq $d->train_id or ( $_->old_train_id and $_->old_train_id eq $d->train_id ); - } - $status_via->results; + } $status_via->results; if ( not $d_via or not $d_via->sched_arrival or $d_via->sched_arrival < $d->departure ) |