diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2010-10-04 20:29:05 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2010-10-04 20:29:05 +0100 |
commit | 6af1cd7245de0183404ea6aadda4c2f63f9f616b (patch) | |
tree | 8ea604694905195eb18c11cae4765d738bbebc5c /ocaml | |
parent | 67636f721056d2f2250b0ff8acd981a0294536a9 (diff) | |
download | libguestfs-6af1cd7245de0183404ea6aadda4c2f63f9f616b.tar.gz libguestfs-6af1cd7245de0183404ea6aadda4c2f63f9f616b.tar.xz libguestfs-6af1cd7245de0183404ea6aadda4c2f63f9f616b.zip |
ocaml: Create the handle when the object is instantiated.
Previously we had only one handle shared between all objects .. oops.
This fixes commit 67636f721056d2f2250b0ff8acd981a0294536a9.
Diffstat (limited to 'ocaml')
-rw-r--r-- | ocaml/t/guestfs_005_load.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ocaml/t/guestfs_005_load.ml b/ocaml/t/guestfs_005_load.ml index 523f764c..8b4492ac 100644 --- a/ocaml/t/guestfs_005_load.ml +++ b/ocaml/t/guestfs_005_load.ml @@ -20,5 +20,5 @@ let _ = Guestfs.create (* Also try the OO style. *) let _ = - let g = new Guestfs.guestfs in + let g = new Guestfs.guestfs () in g#get_verbose () |