diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/acronyms.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 3687f40..43634d3 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -48,6 +48,12 @@ sub get_stations { sub get_station_by_name { my ( $name ) = @_; + my $ds100_match = firstval { $nname eq $_->[0] } @stations; + + if ($ds100_match) { + return ($ds100_match); + } + my $nname = lc($name); my $actual_match = firstval { $nname eq lc($_->[1]) } @stations; |