This new program, also ending with a segfault, shows that the problem is not related to the use of the same instance of the mech object.

-------------------- main.ml --------------------
let mech = Pl_WWW_Mechanize.new_ ()
let m = Mutex.create ()

let evil_thread () =
  Mutex.lock m;
  let _ = Pl_HTML_TreeBuilder.new_from_content "<html></html>" in
  Mutex.unlock m

let _ =
  Mutex.lock m;
  mech#agent_alias "Linux Mozilla";
  mech#get "http://www.gnu.org";;
  Mutex.unlock m;
  let _ = Thread.create evil_thread () in
  Mutex.lock m;
  print_string mech#content;
  Mutex.unlock m



--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]

Reply via email to