diff options
Diffstat (limited to 'perl-install/timezone.pm')
| -rw-r--r-- | perl-install/timezone.pm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm index faf769054..a18914755 100644 --- a/perl-install/timezone.pm +++ b/perl-install/timezone.pm @@ -150,14 +150,13 @@ our %ntp_servers; sub get_ntp_server_tree { my ($zone) = @_; map { - $ntp_servers{$zone}{$_} => ( - exists $ntp_servers{$_} ? - $zone ? - translate($_) . "|" . N("All servers") : - N("All servers") : - translate($zone) . "|" . translate($_) - ), - get_ntp_server_tree($_); + my $key = $ntp_servers{$zone}{$_}; + if (exists $ntp_servers{$_}) { + ( $key => $zone ? translate($_) . "|" . N("All servers") : N("All servers"), + get_ntp_server_tree($_) ); + } else { + ( $key => translate($zone) . "|" . translate($_) ); + } } keys %{$ntp_servers{$zone}}; } |
