Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/lib/Thread/Semaphore.t
use warnings; BEGIN { chdir 't' if -d 't'; push @INC ,'../lib'; require Config; import Config; unless ($Config{'useithreads'}) { print "1..0 # Skip: no ithreads\n"; exit 0; } } print "1..1\n"; use threads; use Thread::Semaphore; print "ok 1\n";