[#478] retries if storage busy

Fixes #478
UPC · Nov 20, 2017 · 27fc2d1 · 27fc2d1
1 parent f6dd983
commit 27fc2d1
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/lib/Ravada/VM/KVM.pm b/lib/Ravada/VM/KVM.pm
@@ -264,7 +264,12 @@ sub search_volume_re($self,$pattern,$refresh=0) {
 
 sub _refresh_storage_pools($self) {
     for my $pool ($self->vm->list_storage_pools) {
-        $pool->refresh();
+        for (;;) {
+            eval { $pool->refresh() };
+            last if !$@;
+            warn $@ if $@ !~ /pool .* has asynchronous jobs running/;
+            sleep 1;
+        }
     }
 }