All the authors of these modules have now been contacted;
[p5sagit/p5-mst-13.2.git] / ext / Thread / specific.tx
CommitLineData
0fcb073c 1BEGIN {
2 eval { require Config; import Config };
3 if ($@) {
4 print "1..0 # Skip: no Config\n";
5 exit(0);
6 }
0fcb073c 7}
8
458fb581 9use Thread;
10
11use Thread::Specific qw(foo);
12
13sub count {
14 my $tid = Thread->self->tid;
15 my Thread::Specific $tsd = Thread::Specific::data;
16 for (my $i = 0; $i < 5; $i++) {
17 $tsd->{foo} = $i;
18 print "thread $tid count: $tsd->{foo}\n";
19 select(undef, undef, undef, rand(2));
20 }
21};
22
23for(my $t = 0; $t < 5; $t++) {
24 new Thread \&count;
25}