diff options
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm index 0fe1791..3ac7d78 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -8488,6 +8488,12 @@ sub get_station { return ($ds100_match); } + my $eva_match = firstval { defined $_->[2] and $name eq $_->[2] } @stations; + + if ($eva_match) { + return ($eva_match); + } + return get_station_by_name($name); } |