This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add socklen_t probe; Configure maintenance.
[perl5.git] / ext / Thread / create.t
1 use Thread 'async';
2 use Config;
3 use Tie::Hash;
4
5 sub start_here {
6     my $i;
7     print "In start_here with args: @_\n";
8     for ($i = 1; $i <= 5; $i++) {
9         print "start_here: $i\n";
10         sleep 1;
11     }
12 }
13
14 async {
15     tie my(%h), 'Tie::StdHash';
16     %h = %Config;
17     print "running on $h{archname}\n";
18 };
19
20 print "Starting new thread now\n";
21 $t = new Thread \&start_here, qw(foo bar baz);
22 print "Started thread $t\n";
23 for ($count = 1; $count <= 5; $count++) {
24     print "main: $count\n";
25     sleep 1;
26 }