diff options
-rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm | 2 | ||||
-rwxr-xr-x | 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 350e9a5..22625f3 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -8519,7 +8519,7 @@ sub get_station_by_location { my @station_map = pairwise { [ $a, $b ] } @candidates, @distances; @station_map = sort { $a->[1] <=> $b->[1] } @station_map; - splice( @station_map, 10 ); + splice( @station_map, $num_matches ); return @station_map; } diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 82e8b3f..6067c44 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -1891,7 +1891,7 @@ sub get_station_by_location { my @station_map = pairwise { [ $a, $b ] } @candidates, @distances; @station_map = sort { $a->[1] <=> $b->[1] } @station_map; - splice( @station_map, 10 ); + splice( @station_map, $num_matches ); return @station_map; } |