All the authors of these modules have now been contacted;
[p5sagit/p5-mst-13.2.git] / ext / Thread / specific.tx
1 BEGIN {
2     eval { require Config; import Config };
3     if ($@) {
4         print "1..0 # Skip: no Config\n";
5         exit(0);
6     }
7 }
8
9 use Thread;
10
11 use Thread::Specific qw(foo);
12
13 sub 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
23 for(my $t = 0; $t < 5; $t++) {
24     new Thread \&count;
25 }