diff options
Diffstat (limited to 'lib/Travelynx/Helper/HAFAS.pm')
| -rw-r--r-- | lib/Travelynx/Helper/HAFAS.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm index a248548..383b3bd 100644 --- a/lib/Travelynx/Helper/HAFAS.pm +++ b/lib/Travelynx/Helper/HAFAS.pm @@ -82,11 +82,11 @@ sub get_polyline_p { $cache->freeze( $url, $ret ); - # borders ("(Gr)" as in "Grenze") are only returned by HAFAS. + # borders (Gr" as in "Grenze") are only returned by HAFAS. # They are not stations. my $iris_stations = join( '|', $train->route ); my $hafas_stations - = join( '|', grep { $_ !~ m{\(Gr\)$} } @station_list ); + = join( '|', grep { $_ !~ m{(\(Gr\)|\)Gr)$} } @station_list ); # Do not return polyline if it belongs to an entirely different # train. Trains with longer routes (e.g. due to train number |