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

->{start_percent} (and, thus, ->duration) may be undef

parent eb8fe93b

bin/dbris-m

+2 −0
Changes for bin/dbris-m: 2 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -601,7 +601,9 @@ if ($train_no) { 
	if ( my $min_percentage = min @start_percentages ) {

		print ' ' x ( $min_percentage - 1 );

	}

	if ( defined $wr->direction ) {

		print $wr->direction == 100 ? '>' : '<';

	}



	for my $wagon ( $wr->carriages ) {

		my $wagon_length  = $wagon->length_percent;

lib/Travel/Status/DE/DBRIS/Formation.pm

+3 −1
Changes for lib/Travel/Status/DE/DBRIS/Formation.pm: 3 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -118,7 +118,9 @@ sub parse_carriages { 
	$self->{train_numbers} = \@numbers;



	if ( @{ $self->{carriages} // [] } > 1 ) {

		if ( $self->{carriages}[0]->{start_percent}

		if (    defined $self->{carriages}[0]->{start_percent}

			and defined $self->{carriages}[-1]->{start_percent}

			and $self->{carriages}[0]->{start_percent}

			> $self->{carriages}[-1]->{start_percent} )

		{

			$self->{direction} = 100;