X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FThread%2Fcreate.t;h=df8fc77ba34569215b5ced42dfd474865ec2aca4;hb=0a3e5ca21a6646f3abf4cafe2bcefb8a5b50aa83;hp=7d6d189e929318dd1253cbc874a364a381a9bac4;hpb=949ced2d91d642c26980685f19a322c972629c10;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Thread/create.t b/ext/Thread/create.t
index 7d6d189..df8fc77 100644
--- a/ext/Thread/create.t
+++ b/ext/Thread/create.t
@@ -1,4 +1,7 @@
-use Thread;
+use Thread 'async';
+use Config;
+use Tie::Hash;
+
 sub start_here {
     my $i;
     print "In start_here with args: @_\n";
@@ -8,6 +11,12 @@ sub start_here {
     }
 }
 
+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";