Perl is hard
This commit is contained in:
parent
3b6297b785
commit
f681aa41db
1 changed files with 7 additions and 3 deletions
|
@ -164,9 +164,13 @@ sub run {
|
|||
);
|
||||
}
|
||||
else {
|
||||
$self->app->add_route_timestamps( $uid, $train, 0,
|
||||
$self->app->add_route_timestamps(
|
||||
$uid, $train, 0,
|
||||
(
|
||||
defined $entry->{real_arr_ts}
|
||||
and $now->epoch > $entry->{real_arr_ts} );
|
||||
and $now->epoch > $entry->{real_arr_ts}
|
||||
) ? 1 : 0
|
||||
);
|
||||
}
|
||||
}
|
||||
elsif ( $entry->{real_arr_ts} ) {
|
||||
|
|
Loading…
Reference in a new issue