X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=libguestfs_upstream.ml;h=8272fffdd8170127a17297afb2a79ad3f79b44be;hb=dfdb9843c2c24547c813436a6b580488a00e15b8;hp=825029a99d64da89d2caa3f23a5c00c75d74ce48;hpb=7948877db13807dbc83a6de6aecd34218aae014a;p=goaljobs-goals.git

diff --git a/libguestfs_upstream.ml b/libguestfs_upstream.ml
index 825029a..8272fff 100644
--- 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. *)