Commit c4387b50 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

[#61] disconnect VM every time

parent cad5dda4
......@@ -641,9 +641,10 @@ sub _execute {
die "I can't fork" if !defined $pid;
if ($pid == 0) {
$request->status("forked $$");
$self->_connect_vm();
eval {
$self->_connect_vm();
$sub->($self,$request);
$self->_disconnect_vm();
};
my $err = ( $@ or '');
$request->error($err);
......@@ -890,6 +891,8 @@ sub _cmd_remove_base {
die "Unknown domain id '$id_domain'\n" if !$domain;
$domain->_vm->disconnect();
$self->_disconnect_vm();
$domain->remove_base($user);
}
......@@ -1030,6 +1033,7 @@ sub import_domain {
return $vm->import_domain($name, $user);
}
=head1 AUTHOR
Francesc Guasch-Ortiz , frankie@telecos.upc.edu
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment