import perl
if perl.MULTI_PERL:
print "1..0"
raise SystemExit
try:
import thread
except:
print "1..0"
print "Threads not supported by python"
raise SystemExit
print "1..1"
import time
inc = perl.get_ref("@INC")
i0 = inc[0]
work_started = 0
work_done = 0
def wait():
global work_started, work_done
while not work_started:
time.sleep(0.1)
work_started = 0
while not work_done:
time.sleep(0.1)
def start():
global work_started
work_started = 1
def done():
global work_done
work_done = 1
def t1():
start()
global inc, i0
if i0 != inc[0]: print "not",
print "ok 1";
done()
thread.start_new_thread(t1, ())
wait()