Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Ravada-Mirror
Commits
7768d59e
Commit
7768d59e
authored
Nov 24, 2016
by
Francesc Guasch
Browse files
[#61] check known domain without eval
parent
9b89cd5c
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/Ravada/VM/KVM.pm
View file @
7768d59e
...
...
@@ -77,7 +77,7 @@ sub _connect {
,
readonly
=>
$self
->
mode
);
}
$vm
->
register_close_callback
(
\
&_reconnect
);
#
$vm->register_close_callback(\&_reconnect);
return
$vm
;
}
...
...
@@ -234,13 +234,13 @@ sub list_domains {
for
my
$name
(
@domains
)
{
my
$domain
;
my
$id
;
eval
{
$domain
=
Ravada::Domain::
KVM
->
new
(
$domain
=
Ravada::Domain::
KVM
->
new
(
domain
=>
$name
,
storage
=>
$self
->
storage_pool
,
_vm
=>
$self
);
$id
=
$domain
->
i
d
();
}
;
);
next
if
!
$domain
->
i
s_known
();
$id
=
$domain
->
id
()
;
warn
$@
if
$@
&&
$@
!~
/No DB info/i
;
push
@list
,(
$domain
)
if
$domain
&&
$id
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment