[p5sagit/p5-mst-13.2.git] / ext / threads / shared / t / 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 threads\n";
        exit 0;
    }
}

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