diff options
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 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); |