!7

set flag cancelThread_verbose.

p-exp {
  int timeout = 5000;
  fO o = evalJava_prep2(evalJava_prep("while licensed {}"));
  print("o = " + identityHashCode(o));
  print(identityHashCode(ping_actions) + " / " + identityHashCode(getOpt(o, 'ping_actions));
  O result = null;
  pcall {
    result = evalWithTimeoutOrNull(timeout, func { evalJava_main2(o) });
  }
  cleanUp(o); // This actually stops the thread
}