projects
/
p5sagit/Devel-GlobalDestruction.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add a thread test (just runs the basic one in a thread)
[p5sagit/Devel-GlobalDestruction.git]
/
t
/
02_thread.t
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;