summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/ext/Thread/create.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/ext/Thread/create.t')
-rw-r--r--contrib/perl5/ext/Thread/create.t26
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;
-}
OpenPOWER on IntegriCloud