[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Bug#526442: Can't use thread at all with perl4caml

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

Reply to: