add test for previous fix

p4raw-id: //depot/perl@1935

diff --git a/ext/Thread/create.t b/ext/Thread/create.t
index 7d6d189..df8fc77 100644 (file)
--- 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";