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

1 files changed, 0 insertions, 26 deletions

diff --git a/contrib/perl5/ext/Thread/create.t b/contrib/perl5/ext/Thread/create.t
deleted file mode 100644
index df8fc77..0000000
--- a/contrib/perl5/ext/Thread/create.t
+++ /dev/null
@@ -1,26 +0,0 @@
-use Thread 'async';
-use Config;
-use Tie::Hash;
-
-sub start_here {
-    my $i;
-    print "In start_here with args: @_\n";
-    for ($i = 1; $i <= 5; $i++) {
-	print "start_here: $i\n";
-	sleep 1;
-    }
-}
-
-async {
-    tie my(%h), 'Tie::StdHash';
-    %h = %Config;
-    print "running on $h{archname}\n";
-};
-
-print "Starting new thread now\n";
-$t = new Thread \&start_here, qw(foo bar baz);
-print "Started thread $t\n";
-for ($count = 1; $count <= 5; $count++) {
-    print "main: $count\n";
-    sleep 1;
-}