ext/Thread/specific.tx

BEGIN {
    eval { require Config; import Config };
    if ($@) {
        print "1..0 # Skip: no Config\n";
        exit(0);
    }
}

use Thread;

use Thread::Specific qw(foo);

sub count {
    my $tid = Thread->self->tid;
    my Thread::Specific $tsd = Thread::Specific::data;
    for (my $i = 0; $i < 5; $i++) {
        $tsd->{foo} = $i;
        print "thread $tid count: $tsd->{foo}\n";
        select(undef, undef, undef, rand(2));
    }
};

for(my $t = 0; $t < 5; $t++) {
    new Thread \&count;
}
Revision:	1.1
Committed:	Thu Jun 30 14:27:05 2005 UTC (21 years, 3 months ago) by root
Branch:	MAIN
CVS Tags:	PERL-5-8-7, HEAD
Branch point for:	PERL
Log Message:	* empty log message *
#	Content
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	}