Fix using keys on hash

10 years ago · c3ee93d817
parent 8e90619012
commit c3ee93d817
1 changed files with 1 additions and 1 deletions
--- a/zabbix_scripts/disco_sensors
+++ b/zabbix_scripts/disco_sensors
@ -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};
 }