1 files changed, 0 insertions, 50 deletions
diff --git a/contrib/perl5/ext/Thread/unsync3.t b/contrib/perl5/ext/Thread/unsync3.t
deleted file mode 100644
index e03e9c8af104..000000000000
--- a/contrib/perl5/ext/Thread/unsync3.t
+++ /dev/null
@@ -1,50 +0,0 @@
-use Thread;
-
-$| = 1;
-
-srand($$^$^T);
-
-sub whoami {
-    my $thread = shift;
-    print $thread;
-}
-
-sub uppercase {
-    my $count = 100;
-    while ($count--) {
-	my $i = int(rand(1000));
-	1 while $i--;
-	print "A";
-	$i = int(rand(1000));
-	1 while $i--;
-	whoami("B");
-    }
-}
-	
-sub lowercase {
-    my $count = 100;
-    while ($count--) {
-	my $i = int(rand(1000));
-	1 while $i--;
-	print "x";
-	$i = int(rand(1000));
-	1 while $i--;
-	whoami("y");
-    }
-}
-	
-sub numbers {
-    my $count = 100;
-    while ($count--) {
-	my $i = int(rand(1000));
-	1 while $i--;
-	print 1;
-	$i = int(rand(1000));
-	1 while $i--;
-	whoami(2);
-    }
-}
-	
-new Thread \&numbers;
-new Thread \&uppercase;
-new Thread \&lowercase;