update-autocomplete: remove duplicate station names
This commit is contained in:
parent
4ffd8efd6d
commit
158f68669c
1 changed files with 2 additions and 1 deletions
|
@ -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) {
|
||||
|
|
Loading…
Reference in a new issue