From: Richard W.M. Jones <rjones@redhat.com>
Date: Mon, 23 Sep 2013 20:37:06 +0000 (+0100)
Subject: libguestfs: Enable debugging.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=dfdb9843c2c24547c813436a6b580488a00e15b8;hp=7948877db13807dbc83a6de6aecd34218aae014a;p=goaljobs-goals.git

libguestfs: Enable debugging.
---

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. *)