Commit | Line | Data |
---|---|---|
13c1b207 | 1 | use warnings; |
2 | ||
fb4ae831 | 3 | BEGIN { |
4 | chdir 't' if -d 't'; | |
5 | push @INC ,'../lib'; | |
6 | require Config; import Config; | |
7 | unless ($Config{'useithreads'}) { | |
83272a45 | 8 | print "1..0 # Skip: no ithreads\n"; |
fb4ae831 | 9 | exit 0; |
10 | } | |
11 | } | |
12 | ||
d79f67b6 | 13 | print "1..1\n"; |
14 | use threads; | |
83272a45 | 15 | use Thread::Semaphore; |
d79f67b6 | 16 | print "ok 1\n"; |
17 |