summaryrefslogtreecommitdiffstats
path: root/gnu/usr.bin/perl/ext/Thread/queue.t
diff options
context:
space:
mode:
authormillert <millert@openbsd.org>2002-10-27 22:25:13 +0000
committermillert <millert@openbsd.org>2002-10-27 22:25:13 +0000
commit79cd0b9ae197e67390710f96587afb9169e5346d (patch)
tree8952f7a8f773436ffd1169eb9ac0d56c7ce1118f /gnu/usr.bin/perl/ext/Thread/queue.t
parentstock perl 5.8.0 from CPAN (diff)
downloadwireguard-openbsd-79cd0b9ae197e67390710f96587afb9169e5346d.tar.xz
wireguard-openbsd-79cd0b9ae197e67390710f96587afb9169e5346d.zip
Resolve conflicts, remove old files, merge local changes
Diffstat (limited to 'gnu/usr.bin/perl/ext/Thread/queue.t')
-rw-r--r--gnu/usr.bin/perl/ext/Thread/queue.t36
1 files changed, 0 insertions, 36 deletions
diff --git a/gnu/usr.bin/perl/ext/Thread/queue.t b/gnu/usr.bin/perl/ext/Thread/queue.t
deleted file mode 100644
index 4672ba6ee74..00000000000
--- a/gnu/usr.bin/perl/ext/Thread/queue.t
+++ /dev/null
@@ -1,36 +0,0 @@
-use Thread;
-use Thread::Queue;
-
-$q = new Thread::Queue;
-
-sub reader {
- my $tid = Thread->self->tid;
- my $i = 0;
- while (1) {
- $i++;
- print "reader (tid $tid): waiting for element $i...\n";
- my $el = $q->dequeue;
- print "reader (tid $tid): dequeued element $i: value $el\n";
- select(undef, undef, undef, rand(2));
- if ($el == -1) {
- # end marker
- print "reader (tid $tid) returning\n";
- return;
- }
- }
-}
-
-my $nthreads = 3;
-
-for (my $i = 0; $i < $nthreads; $i++) {
- Thread->new(\&reader, $i);
-}
-
-for (my $i = 1; $i <= 10; $i++) {
- my $el = int(rand(100));
- select(undef, undef, undef, rand(2));
- print "writer: enqueuing value $el\n";
- $q->enqueue($el);
-}
-
-$q->enqueue((-1) x $nthreads); # one end marker for each thread