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