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 *
#	User	Rev	Content
1	root	1.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			}