Fix for VM deletion.

This commit is contained in:
Julien Fontanet 2014-02-06 11:51:56 +01:00
parent 3c6a3674a5
commit 41585f1467

View File

@ -241,6 +241,18 @@ exports.delete = ->
if $isVMRunning VM
@throw 'INVALID_PARAMS', 'The VM can only be deleted when halted'
xapi = @getXAPI VM
$each VM.$VBDs, (ref) ->
try
VBD = @getObject ref
catch
return
return if VBD.read_only or not VBD.VDI?
xapi.call 'VDI.destroy', VBD.VDI
xapi.call 'VM.destroy', VM.ref
exports.migrate = ->