X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fvirt_mem_utsname.ml;h=149e735f774ac6978e8b7f78e4aa2ad9f238f6f4;hb=d926ba456f1b5922fca55ad304091bb56fdea24a;hp=33ee969cc304acd3b04996f19af7f0159d6ba1a9;hpb=2cc9e7fa4a1fa5f938b96e903f390a181ee54991;p=virt-mem.git

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)