summaryrefslogtreecommitdiff
path: root/bin/db-iris
diff options
context:
space:
mode:
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-xbin/db-iris9
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 )