From 63ab8cf57bc7b390c3acce409dd040f6acda2788 Mon Sep 17 00:00:00 2001
From: Francesc Guasch <frankie@etsetb.upc.edu>
Date: Mon, 20 Nov 2017 10:59:55 +0100
Subject: [PATCH] [#478] retries if storage busy

Fixes #478
---
 lib/Ravada/VM/KVM.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/Ravada/VM/KVM.pm b/lib/Ravada/VM/KVM.pm
index 51bb1b71e..96b5e630e 100644
--- a/lib/Ravada/VM/KVM.pm
+++ b/lib/Ravada/VM/KVM.pm
@@ -265,10 +265,12 @@ sub search_volume_re($self,$pattern,$refresh=0) {
 
 sub _refresh_storage_pools($self) {
     for my $pool ($self->vm->list_storage_pools) {
-        eval { $pool->refresh() };
-        last if !$@;
-        warn $@ if $@ !~ /pool .* has asynchronous jobs running/;
-        sleep 1;
+        for (;;) {
+            eval { $pool->refresh() };
+            last if !$@;
+            warn $@ if $@ !~ /pool .* has asynchronous jobs running/;
+            sleep 1;
+        }
     }
 }