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

db-wagenreihung: fix warning if start_percentage == 0

parent 210149a9

bin/db-wagenreihung

+3 −1
Original line number Diff line number Diff line
@@ -106,7 +106,9 @@ for my $section ( $wr->sections ) { 
print "\n";



my @start_percentages = map { $_->{position}{start_percent} } $wr->wagons;

print ' ' x ( ( min @start_percentages ) - 1 );

if ( my $min_percentage = min @start_percentages ) {

	print ' ' x ( $min_percentage - 1 );

}

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



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