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
1 use warnings;
2
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 ithreads\n";
9         exit 0;
10     }
11 }
12
13 print "1..1\n";
14 use threads;
15 use Thread::Semaphore;
16 print "ok 1\n";
17