update-autocomplete: remove duplicate station names

This commit is contained in:
Daniel Friesel 2022-12-04 18:33:45 +01:00
parent 4ffd8efd6d
commit 158f68669c
No known key found for this signature in database
GPG key ID: 100D5BFB5166E005

View file

@ -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) {