avoid perl warning

diff --git a/src/PVE/API2/HA/Groups.pm b/src/PVE/API2/HA/Groups.pm
index 65f88a656be837b8969e400fc93a035e09d8d872..0d1032d973097e22d5736415d67d48402bd34efa 100644 (file)
--- a/src/PVE/API2/HA/Groups.pm
+++ b/src/PVE/API2/HA/Groups.pm
@@ -210,7 +210,7 @@ __PACKAGE__->register_method ({
            sub {
 
                my $rcfg = PVE::HA::Config::read_resources_config();
-               foreach my $sid (keys %$rcfg->{ids}) {
+               foreach my $sid (keys %{$rcfg->{ids}}) {
                    my $sg = $rcfg->{ids}->{$sid}->{group};
                    die "ha group is used by service '$sid'\n" 
                        if ($sg && $sg eq $group);