summaryrefslogtreecommitdiff
path: root/ext/Thread/unsync2.tx
diff options
context:
space:
mode:
Diffstat (limited to 'ext/Thread/unsync2.tx')
-rw-r--r--ext/Thread/unsync2.tx44
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";