Help for this page

Select Code to Download

Select or download this

C:\>perl -Mthreads -e "my $t = threads->new( sub {} ); $t->join; $t->j
+oin;die 2"
Thread already joined at -e line 1.

Select or download this

C:\>perl -Mthreads -e "my $t = threads->new( sub {} ); $t->join; eval{
+$t->join};warn $@;die 2"
Thread already joined at -e line 1.
2 at -e line 1.