From af3e174aaf9d2560fcc49ebc6f6ea5e24545fbac Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 24 Nov 2014 13:21:47 +0100 Subject: Stations.pm: get_station_by_name returns an array --- lib/Travel/Status/DE/IRIS/Stations.pm | 2 +- scripts/acronyms.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm index b8dd855..1339471 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -15257,7 +15257,7 @@ sub get_station_by_name { $nname = normalize($nname); $actual_match = firstval { $nname eq normalize( lc( $_->[1] ) ) } @stations; if ($actual_match) { - return $actual_match; + return ($actual_match); } return ( grep { $_->[1] =~ m{$name}i } @stations ); diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 73cb817..7bb187f 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -84,7 +84,7 @@ sub get_station_by_name { $nname = normalize($nname); $actual_match = firstval { $nname eq normalize(lc($_->[1])) } @stations; if ($actual_match) { - return $actual_match; + return ($actual_match); } return ( grep { $_->[1] =~ m{$name}i } @stations ); -- cgit v1.2.3