crs: avoid auto-vivification when adding node to service usage

[pve-ha-manager.git] / src / PVE / HA / Usage / Basic.pm

diff --git a/src/PVE/HA/Usage/Basic.pm b/src/PVE/HA/Usage/Basic.pm
index f066350a0000c12aab35638401e85823c5b5edcf..d6b3d6c69e8f890476c26c4dc31224fdf57cd006 100644 (file)
--- a/src/PVE/HA/Usage/Basic.pm
+++ b/src/PVE/HA/Usage/Basic.pm
@@ -10,6 +10,7 @@ sub new {
 
     return bless {
        nodes => {},
+       haenv => $haenv,
     }, $class;
 }
 
@@ -40,7 +41,14 @@ sub contains_node {
 sub add_service_usage_to_node {
     my ($self, $nodename, $sid, $service_node, $migration_target) = @_;
 
-    $self->{nodes}->{$nodename}++;
+    if ($self->contains_node($nodename)) {
+       $self->{nodes}->{$nodename}++;
+    } else {
+       $self->{haenv}->log(
+           'warning',
+           "unable to add service '$sid' usage to node '$nodename' - node not in usage hash",
+       );
+    }
 }
 
 sub score_nodes_to_start_service {