diff options
Diffstat (limited to 'ext/Thread/unsync2.tx')
-rw-r--r-- | ext/Thread/unsync2.tx | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/ext/Thread/unsync2.tx b/ext/Thread/unsync2.tx deleted file mode 100644 index 15765373dc..0000000000 --- a/ext/Thread/unsync2.tx +++ /dev/null @@ -1,44 +0,0 @@ -BEGIN { - eval { require Config; import Config }; - if ($@) { - print "1..0 # Skip: no Config\n"; - exit(0); - } -} - -use Thread; - -$| = 1; - -srand($$^$^T); - -sub printargs { - my $thread = shift; - my $arg; - my $i; - while ($arg = shift) { - my $delay = int(rand(500)); - $i++; - print "$thread arg $i is $arg\n"; - 1 while $delay--; - } -} - -sub start_thread { - my $thread = shift; - my $count = 10; - while ($count--) { - my(@args) = ($thread) x int(rand(10)); - print "$thread $count calling printargs @args\n"; - printargs($thread, @args); - } -} - -new Thread (\&start_thread, "A"); -new Thread (\&start_thread, "B"); -#new Thread (\&start_thread, "C"); -#new Thread (\&start_thread, "D"); -#new Thread (\&start_thread, "E"); -#new Thread (\&start_thread, "F"); - -print "main: exiting\n"; |