1 files changed, 0 insertions, 30 deletions
diff --git a/contrib/perl5/ext/Thread/list.t b/contrib/perl5/ext/Thread/list.t
deleted file mode 100644
index f13f4b2..0000000
--- a/contrib/perl5/ext/Thread/list.t
+++ /dev/null
@@ -1,30 +0,0 @@
-use Thread qw(async);
-use Thread::Semaphore;
-
-my $sem = Thread::Semaphore->new(0);
-
-$nthreads = 4;
-
-for (my $i = 0; $i < $nthreads; $i++) {
-    async {
-     	my $tid = Thread->self->tid;
-	print "thread $tid started...\n";
-	$sem->down;
-	print "thread $tid finishing\n";
-    };
-}
-
-print "main: started $nthreads threads\n";
-sleep 2;
-
-my @list = Thread->list;
-printf "main: Thread->list returned %d threads\n", scalar(@list);
-
-foreach my $t (@list) {
-    print "inspecting thread $t...\n";
-    print "...deref is $$t\n";
-    print "...flags = ", $t->flags, "\n";
-    print "...tid = ", $t->tid, "\n";
-}
-print "main thread telling workers to finish off...\n";
-$sem->up($nthreads);