diff options
author | Daniel Friesel <derf@finalrewind.org> | 2022-12-04 18:33:45 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2022-12-04 18:33:45 +0100 |
commit | 158f68669c17f74f7da672b636a966741c330151 (patch) | |
tree | 77cb78025f3db2cbee6f584cd8dc09aa1cd86dcb /scripts | |
parent | 4ffd8efd6d4831b35c8e3a58e4832b361ca50b20 (diff) |
update-autocomplete: remove duplicate station names
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/update-autocomplete | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/update-autocomplete b/scripts/update-autocomplete index 4dc64ae..de5e7d2 100755 --- a/scripts/update-autocomplete +++ b/scripts/update-autocomplete @@ -6,10 +6,11 @@ use 5.020; use JSON; use File::Slurp qw(write_file); +use List::Util qw(uniq); use Travel::Status::DE::IRIS::Stations; my @station_names - = map { $_->[1] } Travel::Status::DE::IRIS::Stations::get_stations(); + = uniq map { $_->[1] } Travel::Status::DE::IRIS::Stations::get_stations(); my $station_list = q{}; for my $station (@station_names) { |