[p5sagit/Devel-GlobalDestruction.git] / t / 02_thread.t

use Config;
BEGIN {
  unless ($Config{useithreads}) {
    print "1..0 # SKIP your perl does not support ithreads\n";
    exit 0;
  }
}

BEGIN {
  unless (eval { require threads }) {
    print "1..0 # SKIP threads.pm not installed\n";
    exit 0;
  }
}

use threads;
use warnings;
use strict;

my $t = threads->create(sub { do 't/01_basic.t' });
$t->join;

exit 0;
Commit	Line	Data
844f2408	1	use Config;
	2	BEGIN {
	3	unless ($Config{useithreads}) {
	4	print "1..0 # SKIP your perl does not support ithreads\n";
	5	exit 0;
	6	}
	7	}
	8
	9	BEGIN {
	10	unless (eval { require threads }) {
	11	print "1..0 # SKIP threads.pm not installed\n";
	12	exit 0;
	13	}
	14	}
	15
	16	use threads;
	17	use warnings;
	18	use strict;
	19
	20	my $t = threads->create(sub { do 't/01_basic.t' });
	21	$t->join;
	22
	23	exit 0;