[pve-devel] [PATCH ha-manager 15/18] manager: move group migration cooldown variable into helper

[Daniel Kral]

The variable is only used in the try_persistent_group_migration(...)
helper. While at it, add a comment and change the name to make its
meaning clearer.

Signed-off-by: Daniel Kral <d.kral at proxmox.com>
---
 src/PVE/HA/Manager.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/PVE/HA/Manager.pm b/src/PVE/HA/Manager.pm
index 14a20c5b..8d600a7d 100644
--- a/src/PVE/HA/Manager.pm
+++ b/src/PVE/HA/Manager.pm
@@ -41,8 +41,6 @@ use PVE::HA::Usage::Static;
 # patches for changing above, as that set is mostly sensible and should be easy to remember once
 # spending a bit time in the HA code base.
 
-my $group_migration_cooldown = 6;
-
 sub new {
     my ($this, $haenv) = @_;
 
@@ -640,13 +638,16 @@ my $migrate_group_persistently = sub {
 sub try_persistent_group_migration {
     my ($self) = @_;
 
+    # rounds to wait until next ha group migration try
+    my $group_migration_cooldown_round = 6;
+
     my ($haenv, $ns, $ss) = ($self->{haenv}, $self->{ns}, $self->{ss});
 
     return if $have_groups_been_migrated->($haenv);
 
     $self->{group_migration_round}--;
     return if $self->{group_migration_round} > 0;
-    $self->{group_migration_round} = $group_migration_cooldown;
+    $self->{group_migration_round} = $group_migration_cooldown_round;
 
     $haenv->log('notice', "start ha group migration...");
 
@@ -656,8 +657,8 @@ sub try_persistent_group_migration {
         $haenv->log('err', "ha groups migration failed");
         $haenv->log(
             'notice',
-            "retry ha groups migration in $group_migration_cooldown rounds (~ "
-                . $group_migration_cooldown * 10
+            "retry ha groups migration in $group_migration_cooldown_round rounds (~ "
+                . $group_migration_cooldown_round * 10
                 . " seconds)",
         );
     }
-- 
2.47.2