This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
threads::shared::queue and semaphore become Thread::Semaphore
[perl5.git] / lib / Thread / Semaphore.t
CommitLineData
13c1b207
DM
1use warnings;
2
fb4ae831
JH
3BEGIN {
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
13print "1..1\n";
14use threads;
83272a45 15use Thread::Semaphore;
d79f67b6
JH
16print "ok 1\n";
17