Perl is no longer in base. Long live the port!

1 files changed, 0 insertions, 27 deletions

diff --git a/contrib/perl5/ext/Thread/lock.t b/contrib/perl5/ext/Thread/lock.t
deleted file mode 100644
index fefb129..0000000
--- a/contrib/perl5/ext/Thread/lock.t
+++ /dev/null
@@ -1,27 +0,0 @@
-use Thread;
-
-$level = 0;
-
-sub worker
-{
-    my $num = shift;
-    my $i;
-    print "thread $num starting\n";
-    for ($i = 1; $i <= 20; $i++) {
-	print "thread $num iteration $i\n";
-	select(undef, undef, undef, rand(10)/100);
-	{
-	    lock($lock);
-	    warn "thread $num saw non-zero level = $level\n" if $level;
-	    $level++;
-	    print "thread $num has lock\n";
-	    select(undef, undef, undef, rand(10)/100);
-	    $level--;
-	}
-	print "thread $num released lock\n";
-    }
-}
-
-for ($t = 1; $t <= 5; $t++) {
-    new Thread \&worker, $t;
-}