diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2018-12-17 17:12:22 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2018-12-17 17:12:22 +0100 |
| commit | a73057b6f1465ac15963fb8c6c0d237bd79bbb1f (patch) | |
| tree | 02e94f91cec3840e0f8bbc7923e71d6b9c994033 /lib/Travel | |
| parent | ea5aab03fc83b49143dda9a430e59f4fa78a6771 (diff) | |
Work around too closely related stations in Munich
Thanks to @marudor for pointing it out
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index d8ae0bf..830c0b5 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -213,6 +213,17 @@ sub get_station { push( @seen, $station ); $iter_depth++; + if ($station eq '8089317') { + # "München Hbf" (8000261) references "München ZOB (Hackerbrücke)" + # (8089317), which in turn references "München Hackerbrücke" + # (8004129)... which is a different station altogether and for added + # confusion has overlapping lines with München Hbf. + # + # To work around this, skip München ZOB (Hackerbrücke) entirely + # for now. + next; + } + my ( $raw, $err ) = $self->get_with_cache( $self->{main_cache}, $self->{iris_base} . '/station/' . $station ); |