git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Security: Mitigate possible privilege escalation via SG_IO ioctl (CVE-2011-4127,...
[libguestfs.git]
/
ocaml
/
t
/
guestfs_400_events.ml
diff --git
a/ocaml/t/guestfs_400_events.ml
b/ocaml/t/guestfs_400_events.ml
index
66dc3c3
..
4585a09
100644
(file)
--- a/
ocaml/t/guestfs_400_events.ml
+++ b/
ocaml/t/guestfs_400_events.ml
@@
-27,7
+27,8
@@
let log g ev eh buf array =
| Guestfs.EVENT_PROGRESS -> "progress"
| Guestfs.EVENT_APPLIANCE -> "appliance"
| Guestfs.EVENT_LIBRARY -> "library"
| Guestfs.EVENT_PROGRESS -> "progress"
| Guestfs.EVENT_APPLIANCE -> "appliance"
| Guestfs.EVENT_LIBRARY -> "library"
- | Guestfs.EVENT_TRACE -> "trace" in
+ | Guestfs.EVENT_TRACE -> "trace"
+ | Guestfs.EVENT_ENTER -> "enter" in
let eh : int = Obj.magic eh in
let eh : int = Obj.magic eh in