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

result->station: Fix eva_by_name / ->{eva} key

parent 51a2b02f

lib/Travel/Status/DE/HAFAS.pm

+1 −1
Original line number Diff line number Diff line
@@ -805,7 +805,7 @@ sub station { 
	for my $result ( $self->results ) {

		$eva_count{ $result->station_eva } += 1;

		$name_count{ $result->station }    += 1;

		$eva_by_name{ $result->station_eva } = $result->station;

		$eva_by_name{ $result->station } = $result->station_eva;

	}



	my @most_frequent_evas = map { $_->[0] } sort { $b->[1] <=> $a->[1] }