diff options
Diffstat (limited to 'lib/AdminPanel')
-rw-r--r-- | lib/AdminPanel/Shared/Hosts.pm | 2 | ||||
-rw-r--r-- | lib/AdminPanel/Shared/TimeZone.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/AdminPanel/Shared/Hosts.pm b/lib/AdminPanel/Shared/Hosts.pm index c3ce6ee4..9eed5b61 100644 --- a/lib/AdminPanel/Shared/Hosts.pm +++ b/lib/AdminPanel/Shared/Hosts.pm @@ -61,7 +61,7 @@ sub _getHosts { # $self->configHosts(Config::Hosts->new()); my $hosts = $self->configHosts->read_hosts(); my @result = (); - while( my ($key, $value) = each($hosts)){ + while( my ($key, $value) = each(%{$hosts})){ if($self->configHosts->determine_ip_or_host($key) == $is_ip){ my $tmp = {}; $tmp = $self->configHosts->query_host($key); diff --git a/lib/AdminPanel/Shared/TimeZone.pm b/lib/AdminPanel/Shared/TimeZone.pm index a7aac1c0..969df940 100644 --- a/lib/AdminPanel/Shared/TimeZone.pm +++ b/lib/AdminPanel/Shared/TimeZone.pm @@ -461,7 +461,7 @@ sub _get_ntp_server_tree { $self->loc->N($zone) . "|" . $self->loc->N($_) ), $self->_get_ntp_server_tree($_) - } keys $ns; + } keys %{$ns}; } #============================================================= |