diff options
| author | Angelo Naselli <anaselli@linux.it> | 2014-09-04 23:35:09 +0200 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2014-09-04 23:35:09 +0200 |
| commit | 79e89c19b53055fb0b95c541d6191b07a4e59e22 (patch) | |
| tree | e0ae004b09b2bc39fd6458b98afed892c1dd6626 /lib/AdminPanel/Shared/Hosts.pm | |
| parent | 791f736950dd63ff239e7fd743f4675ccb9c865f (diff) | |
| download | manatools-79e89c19b53055fb0b95c541d6191b07a4e59e22.tar manatools-79e89c19b53055fb0b95c541d6191b07a4e59e22.tar.gz manatools-79e89c19b53055fb0b95c541d6191b07a4e59e22.tar.bz2 manatools-79e89c19b53055fb0b95c541d6191b07a4e59e22.tar.xz manatools-79e89c19b53055fb0b95c541d6191b07a4e59e22.zip | |
fixed experimental warning for hash ref access
Diffstat (limited to 'lib/AdminPanel/Shared/Hosts.pm')
| -rw-r--r-- | lib/AdminPanel/Shared/Hosts.pm | 2 |
1 files changed, 1 insertions, 1 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); |