From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Fri, 8 Aug 2008 13:48:11 +0000 (+0100)
Subject: Fix build when ocaml-gettext is not installed.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=d926ba456f1b5922fca55ad304091bb56fdea24a;p=virt-mem.git

Fix build when ocaml-gettext is not installed.
---

diff --git a/lib/virt_mem_utsname.ml b/lib/virt_mem_utsname.ml
index 33ee969..149e735 100644
--- a/lib/virt_mem_utsname.ml
+++ b/lib/virt_mem_utsname.ml
@@ -78,6 +78,8 @@ let find_utsname debug ({ domname = name; mem = mem } as image, ksymmap) =
 	  parse_utsname bits
 	    with
 	      Not_found ->
-		eprintf (f_"%s: could not find utsname in kernel image\n") name
+		eprintf (f_"%s: could not find utsname in kernel image\n")
+		  name;
+		None
   in
   (image, ksymmap, utsname)