Unverified Commit fbab6058 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

db-iris: perltidy

parent 905d9148

bin/db-iris

+4 −5
Original line number Diff line number Diff line
@@ -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 )