From 79e89c19b53055fb0b95c541d6191b07a4e59e22 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Thu, 4 Sep 2014 23:35:09 +0200 Subject: fixed experimental warning for hash ref access --- lib/AdminPanel/Shared/Hosts.pm | 2 +- lib/AdminPanel/Shared/TimeZone.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/AdminPanel/Shared/Hosts.pm b/lib/AdminPanel/Shared/Hosts.pm index c3ce6ee..9eed5b6 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 a7aac1c..969df94 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}; } #============================================================= -- cgit v1.2.1