allow to set debug with a environment variable

diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml
index ec01fc907630cb6d5edbe8e3f0daa24a22e1c2a4..27033b3990a58d37615bf24fb0a2712e9eb33148 100644 (file)
--- a/xenvm/xenvm.ml
+++ b/xenvm/xenvm.ml
@@ -783,12 +783,19 @@ let () =
        if !daemonize then
                Unixext.daemonize ();
 
-       if state.vm_cfg.debug then (
+       let glob_debug = try Some (Sys.getenv "XENVM_DEBUG") with Not_found -> None in
+       if state.vm_cfg.debug || glob_debug <> None then (
                let a =
-                       if state.vm_cfg.output = "" then
-                               sprintf "file:/tmp/xenvm-debug-%s" uuid
-                       else
-                               "file:/" ^ state.vm_cfg.output
+                       if state.vm_cfg.debug then (
+                               if state.vm_cfg.output = "" then
+                                       sprintf "file:/tmp/xenvm-debug-%s" uuid
+                               else
+                                       "file:/" ^ state.vm_cfg.output
+                       ) else (
+                               match glob_debug with
+                               | None -> assert false
+                               | Some dbg -> dbg
+                       )
                        in
                Logs.set_default Log.Debug [ a ];
                Logs.set_default Log.Info [ a ];