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