Raise error if failed getting the VM id

lib/Ravada.pm

@@ -1074,7 +1074,7 @@ sub list_bases {
     for my $vm (@{$self->vm}) {
         for my $domain ($vm->list_domains) {
             eval { $domain->id };
-            warn $@ if $@;
+            confess $@ if $@;
             next    if $@;
             push @domains,($domain) if $domain->is_base;
         }