Perl is hard

This commit is contained in:
Daniel Friesel 2023-04-06 15:16:52 +02:00
parent 3b6297b785
commit f681aa41db
No known key found for this signature in database
GPG key ID: F07AF8DC23EA5E97

View file

@ -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} ) {