From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 6 Oct 1998 06:50:35 +0000 (+0000)
Subject: add test for previous fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a3e5ca21a6646f3abf4cafe2bcefb8a5b50aa83;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";