temporary fix to disable disk hotplugging altogether

workaround bug in drivers.

diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml
index ceacf6e5479e96eebc888c723c323643f8e86257..71b848832531633f5f5ab824f9368574223ff08e 100644 (file)
--- a/xenvm/xenvm.ml
+++ b/xenvm/xenvm.ml
@@ -287,7 +287,7 @@ let monitor_vm state =
                        in
                let do_devshutdowndone disk device =
                        let online = Hotplug.device_is_online ~xs device in
-                       if not online then (
+                       if not online && false then (
                                Device.Vbd.release ~xs device;
                                Device.Generic.rm_device_state ~xs device;
                        )