[p5sagit/p5-mst-13.2.git] / ext / threads / shared / t / semaphore.t

BEGIN {
    chdir 't' if -d 't';
    push @INC ,'../lib';
    require Config; import Config;
    unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no threads\n";
        exit 0;
    }
}

print "1..1\n";
use threads;
use threads::shared::semaphore;
print "ok 1\n";
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