X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Ft%2Fhivex_300_fold.ml;fp=ocaml%2Ft%2Fhivex_300_fold.ml;h=c8de6e8783f5ee40bd4a8bb864c3f690bcde879c;hb=b22f2651674b4628978bd5971984a01d68510c45;hp=0c7bc4f69aad89c730be193f27db19b4d7c1f0a9;hpb=0aa3fc0092b057bf496ceb590bd4b4ac0fc9017d;p=hivex.git

diff --git a/ocaml/t/hivex_300_fold.ml b/ocaml/t/hivex_300_fold.ml
index 0c7bc4f..c8de6e8 100644
--- a/ocaml/t/hivex_300_fold.ml
+++ b/ocaml/t/hivex_300_fold.ml
@@ -21,7 +21,6 @@
 open Unix
 open Printf
 let (//) = Filename.concat
-let srcdir = try Sys.getenv "srcdir" with Not_found -> "."
 
 (* This is a generic function to fold over hives.
  *   fn : 'a -> node -> 'a is called for each node
@@ -36,7 +35,7 @@ let hive_fold h fn fv a root =
   fold a root
 
 let () =
-  let h = Hivex.open_file (srcdir // "../images/large") [] in
+  let h = Hivex.open_file ("../images/large") [] in
 
   (* Count the number of nodes and values in the hive. *)
   let count_node (nodes, values) _ = (nodes+1, values) in