[perl5.git] / 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";
Commit	Line	Data
13c1b207 DM	1	use warnings;
13c1b207 DM	2
fb4ae831 JH	3	BEGIN {
	4	chdir 't' if -d 't';
	5	push @INC ,'../lib';
	6	require Config; import Config;
	7	unless ($Config{'useithreads'}) {
83272a45	8	print "1..0 # Skip: no ithreads\n";
fb4ae831 JH	9	exit 0;
	10	}
	11	}
	12
d79f67b6 JH	13	print "1..1\n";
d79f67b6 JH	14	use threads;
83272a45	15	use Thread::Semaphore;
d79f67b6 JH	16	print "ok 1\n";
d79f67b6 JH	17