Fix using keys on hash

This commit is contained in:
Daniel Berteaud 2015-07-08 20:03:18 +02:00
parent 8e90619012
commit c3ee93d817

View File

@ -18,7 +18,7 @@ my $json;
my $cfg = new Config::Simple;
$cfg->read('/etc/zabbix/sensors.ini');
my %sensors = ();
foreach my $k (keys $cfg->vars){
foreach my $k (keys %{$cfg->vars}){
$k =~ s/\..*$//;
$sensors{$k} = 1 unless $sensors{$k};
}