libguestfs: Enable debugging.

diff --git a/libguestfs_upstream.ml b/libguestfs_upstream.ml
index 825029a..8272fff 100644 (file)
--- a/libguestfs_upstream.ml
+++ b/libguestfs_upstream.ml
@@ -12,6 +12,11 @@ open Goaljobs
 open Printf
 open Config
 
+(* Enable debugging. *)
+let () =
+  Unix.putenv "LIBGUESTFS_DEBUG" "1";
+  Unix.putenv "LIBGUESTFS_TRACE" "1"
+
 let package = "libguestfs"
 
 (* Helper object which stores everything about a version. *)