OCaml: ignore stderr in r2pipe

soltysek · Mar 5, 2018 · 546d637 · 546d637
1 parent 04cdcd6
commit 546d637
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ocaml/src/r2.ml b/ocaml/src/r2.ml
@@ -40,7 +40,7 @@ let open_file f_name =
         (out_r, out_w),
         (_, err_w) = Unix.(pipe (), pipe (), pipe ())
     in
-    let args = [|"r2"; "-q0"; f_name|] in
+    let args = [|"r2"; "-2"; "-q0"; f_name|] in
     let pid = Unix.create_process "r2" args ins_r out_w err_w in
     (* Get rid of the beginning \x00 *)
     ignore (Unix.read out_r (Bytes.create 1) 0 1);