source: trunk/essentials/dev-lang/perl/lib/Thread/Semaphore.t@ 3951

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";