diff options
author | Daniel Friesel <derf@finalrewind.org> | 2016-10-01 13:21:17 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2016-10-01 13:21:17 +0200 |
commit | 2d820d2a3d978816513f8bfc9e8515fa192de71f (patch) | |
tree | 2b44ef241ca65f241b4cd20c4ff866fd95ed8f6b /scripts | |
parent | 98f1625af2a75243d45cfc03040036d4ef67116e (diff) |
acronyms.pl: fix a derp (only added in generated .pm, not in generator script)
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/acronyms.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index fd78b88..82e8b3f 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -1860,6 +1860,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); } @@ -1890,7 +1896,6 @@ sub get_station_by_location { return @station_map; } - sub get_station_by_name { my ($name) = @_; |