diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-07-06 13:47:07 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-07-06 17:36:30 +0100 |
commit | 7a64b21aa0ec52375bab15a0f6eba72b30324914 (patch) | |
tree | 7bcc9e5fcf9802ef192dba2ef83d19ba3cbdac39 | |
parent | 82e3b7509dea41823c1ce58acd61d406d460c0ab (diff) | |
download | libguestfs-7a64b21aa0ec52375bab15a0f6eba72b30324914.tar.gz libguestfs-7a64b21aa0ec52375bab15a0f6eba72b30324914.tar.xz libguestfs-7a64b21aa0ec52375bab15a0f6eba72b30324914.zip |
ocaml: Calling Gc.compact before g#mount_local works around RHBZ#838081.
(cherry picked from commit ad7c4498f66f37c4219242c6df04d28e9ee7877f)
-rw-r--r-- | ocaml/t/guestfs_500_parallel_mount_local.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ocaml/t/guestfs_500_parallel_mount_local.ml b/ocaml/t/guestfs_500_parallel_mount_local.ml index a26ff9d6..e1f5e26a 100644 --- a/ocaml/t/guestfs_500_parallel_mount_local.ml +++ b/ocaml/t/guestfs_500_parallel_mount_local.ml @@ -115,6 +115,7 @@ and start_thread (filename, mp) = let t = time () in if t -. start_t < total_time then ( if debug then eprintf "%s < mounting filesystem\n%!" mp; + Gc.compact (); (* Workaround for RHBZ#838081 *) g#mount_local mp; (* Run test in an exec'd subprocess. *) |