summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/IRIS.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/IRIS.pm')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 212bce5..420fc6a 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -455,10 +455,12 @@ sub get_station {
# @seen holds station IDs which were already seen during recursive
# 'meta' descent. This avoids infinite loops of 'meta' references.
- # As Norddeich and Norddeich Mole are illegaly coupled in the backend
- # (they are different stations with different departure times), we pre-seed
- # @seen with their eva IDs.
- my @seen = ( 8007768, 8004449 );
+ # Additionally, we use it to skip stations shat should not be referenced.
+ # This includes Norddeich / Norddeich Mole (different stations commonly used
+ # by identical trains with different departure times), and Essen-Dellwig /
+ # Essen-Dellwig Ost (different stations used by different trains, but with
+ # identical platform numbers).
+ my @seen = ( 8007768, 8004449, 8001903, 8001904 );
while ( @queue and $iter_depth < 12 ) {
my $station = shift(@queue);